ыаррауцйу
12.03.2020 09:07

Как сделать так чтобы было бесконечное количество ?​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
katya100507
24.01.2023 03:20

Модели объектов и процессов можно разбить на пять групп: вербальные, математические, кибернетические, табличные, графические.

Под вербальными моделями понимаются описательные модели в цифровом виде, пригодном для обработки на компьютере. В эту группу входят и математические модели, доведенные до стадии алгоритма.

Кибернетические модели — это модели, использующие принцип «чёрного ящика». О внутреннем содержании этого состояния можно судить, подавая сигналы на вход «ящика» и наблюдая его реакцию на выходе из «ящика».

В группу табличных информационных моделей попадают электронные таблицы видов «объект - свойство», «объект - объект» и «двоичная матрица». В каждой строке таблицы «объект - свойство» содержится информация об одном объекте или одном событии. В таблицах «объект - объект» отображаются взаимосвязи между разными объектами. В таблицах «двоичная матрица» отображается качественный характер связи между объектами.

В группе графических информационных моделей выделяют четыре вида моделей: схемы, чертежи, карты, графы. Графы, в свою очередь, разбиты на две категории — иерархические системы и сети.

0,0(0 оценок)
Ответ:
ivan01356
06.01.2021 12:02
1.                                                                        

program raf105;

var n,m,i:integer;

begin

writeln('Введите диапазон чисел (2 числа через пробел) которые нужно возвести в квадрат');

readln(n,m);

writeln('Вывод:');

for i:=n to m do

 writeln(i**2)

end.

2.                                                                        

program raf105;

var a,b,kol1,kol2:integer;

begin

write('Введите число: ');

readln(a);

while a <> 0 do

begin

 b:= a mod 10;

 if b<>0

   then if (b mod 2)=0

     then kol1+= 1

     else kol2+= 1;

 a:= a div 10;

end;

writeln('В числе ',kol1,' чётных и ',kol2,' нечётных цифр');

end.

3.                                                                        

program raf105;

var n,i,kol:integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n-1 do

 if ((i mod 2)<>0) and ((i mod 3)<>0) and ((i mod 5)<>0)

   then kol+=1;

writeln('Вывод: ',kol);

end.

Язык PascalABC

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота