Найти количество чётных чисел от 1 до 100,программа Pascal abc
Найти количество чётных чисел от 1 до 100,программа Pascal abc
Гость
Ответ(ы) на вопрос:
Гостьvar i,n:integer; begin n:=0; for i:=1 to 100 do if (i mod 2 = 0) then inc(n); writeln(n) end.
Не нашли ответ?
Похожие вопросы