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

2

Ответы и объяснения

2014-01-12T16:00:59+04:00
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.
2014-01-12T16:02:32+04:00
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.