С помощью оператора for напишите программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.

Question

Евгений

22 июня, 05:10

+2

Ответы (1)

Знаете ответ?

Клара · Answer 1

var

i, sum : integer;

begin

sum:=0;

for i:=1 to 99 do

if i mod 20 then sum:=sum+i;

writeln ('sum=', sum) ;

end.