Георгий
4 год назад
найти сумму всех четных натуральных чисел от 2-х до N
ОТВЕТЫ
Snezhanka
Oct 24, 2020
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.
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.
284
Смежные вопросы:
