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

Question

Полюша

25 ноября, 11:52

+3

Ответы (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.