Задача 42906 Сумма натуральных четных чисел от 100 до...

lllplpl0

2019-12-19 22:44:41

Сумма натуральных четных чисел от 100 до 200 в Паскале , желательно с фото

molly1

2019-12-20 09:00:57

var
i, n: integer;

begin

n:=0

for i := 100 to 200 do
if(i mod 2==0) then
begin
n:=n+i;
end;

writeln(n)
readln
end.