написать рограмму для вычисления суммы четных чисел от 1 до 20 в паскале с использованием циклов

Question

Информатика

Кириллична

25 мая, 15:50

написать рограмму для вычисления суммы четных чисел от 1 до 20 в паскале с использованием циклов

+1

Ответы (2)

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

Викторка · Answer 1

Uses crt;

var i, sum: integer;

begin

clrscr;

sum:=0;

for i:=1 to 20 do

begin

if i mod (2) = 0 then

sum:=sum+i;

end;

writeln ('sum=', sum) ;

readln () ;

end.

Мокий · Answer 2

Uses crt;

var i, sum:integer;

begin

for i:=1 to 20 do

if i mod 2 = 0 then

sum:=sum+i;

writeln (sum) ;

end.