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

Question

Информатика

Мирослава

24 июля, 21:46

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

+2

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