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

Question

Трифон

31 мая, 05:07

+4

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