Вычислить сумму всех четных натуральных чисел меньше данного n . задаччерез паскаль.....

Question

Вычислить сумму всех четных натуральных чисел меньше данного n . задаччерез паскаль.. задача по информатике

Answer 1

Var a,n,s:integer;
begin
write('введите число n ');
readln(n);
s:=0;
for a:=1 to n do
if (awrite(s);
end.