Найти сумму всех четных натуральных чисел от 2-х до n

shapakinandrejozt2iy shapakinandrejozt2iy    1   23.08.2019 02:50    2

Ответы
lizazarandiua lizazarandiua  05.10.2020 13:50
Program n1;
var sum,i,n: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика