Написать рограмму для вычисления суммы четных чисел от 1 до 20 в паскале с использованием циклов
Написать рограмму для вычисления суммы четных чисел от 1 до 20 в паскале с использованием циклов
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы