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

Question

Наташа

20 мая, 08:09

+2

Ответы (1)

Знаете ответ?

Груняка · Answer 1

Var a, n, s:integer;

begin

write ('введите число n ') ;

readln (n) ;

s:=0;

for a:=1 to n do

if (a
write (s) ;

end.