написать рограмму для вычисления суммы четных чисел от 1 до 20 в паскале с использованием циклов
More Questions From This User See All
написать рограмму для вычисления суммы четных чисел от 1 до 20 в паскале с использованием циклов
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var i,sum:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then
sum:=sum+i;
writeln(sum);
end.
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.