Question

Дано натуральное четное число N.Получите S=2+4+6+..+N
Подумайте,с помощью какого цикла - с условием или for,удобнее решать эту задачу.

Answer 1

program chisl;var s,n,a,m:integer;
begin
a:=2;
read(n);
while a<=n do
begin
s:=s+a;
a:=a+2;
end;
write(s);
end.