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

agharkova2014 agharkova2014    3   23.08.2019 02:50    1

Ответы
Давиденко Давиденко  05.10.2020 13:47
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика