Регистрация
ivlevv671
17.03.2021 15:06
Информатика
Есть ответ 👍

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

224
334
Посмотреть ответы 2

Ответы на вопрос:

далина3
далина3
4,7(43 оценок)
Var a,n,s: integer; begin write('введите число n '); readln(n); s: =0; for a: =1 to n do if (a< n) and (a mod 2 =0) then s: =s+a; write(s); end.
UnknownKnowns
UnknownKnowns
4,5(70 оценок)
Возможны ошибки. program prim; var x, s: integer; begin s: =0 for x: = 1 to n do s: =s+x writeln ('сумма равна' , s) end.

Популярно: Информатика