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

Question

Информатика

Фелиция

30 апреля, 14:56

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

+5

Ответы (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.