< >

Найти количество чётных чисел от 1 до 100,программа Pascal abc

Ответы

Ответ дал: nelle987
0

var i,n:integer;

begin

   n:=0;

   for i:=1 to 100 do

      if (i mod 2 = 0) then inc(n);

   writeln(n)

end.

Похожие вопросы
Русский язык
2 года назад
Укажите  слово,в котором верно выделена буква ,обозначающая ударный гласный звук. 1.простынЕй 2.чИста 3.значИмость 4.зачерпнУтый
Английский язык
2 года назад
задание :Look and write. 1) Betty ; burgers +                  eggs - 2)Roy :    chocolate  +                  lemonade - 3)Jill :       vegetables +                   pizza - 4)bill:        ice
Информатика
7 лет назад
Расположи значение единиц измерения информации в порядке возрастания 15 мб, 1мб,1 байт, 1 бит, 12 бит, 1кб,1025 байтов, 1020мб,2гб,3072мб
Математика
7 лет назад
Выполните действия 1) 19/24+5/12-17/36; 2) 11/12+5/6-19/24; 3) 13/15-3/10+7/30;
Обществознание
10 лет назад
в чём проявляется нравственная ответственность учёных? в чём проявляется рост влияния науки на современное общевство?
Математика
10 лет назад
Чему равна сумма всех трёхзначных чисел?
Информатика
10 лет назад
сумма каких двух чисел равна их произведению
Математика
10 лет назад
1.Составить выражение для решения задачи: Два туриста вышли одновременно из пунктов А и В навстречу друг другу с скоростями U кмч и V кмч. какое расстояние будет между ними через 2часа,если