Регистрация
alena7571
21.03.2020 11:33
Информатика
Есть ответ 👍

Знайти суму всіх натуральних парних чисел від 0 до n. паскаль

241
285
Посмотреть ответы 3

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

asdf37
asdf37
4,4(20 оценок)
Var i, sum, n: integer; begin   read(n);   for i : = 0 to n do     if (i mod 2 =0) then sum : = sum +i;   writeln(sum); end.
PYULIK12
PYULIK12
4,6(27 оценок)
Program naturaldigits; var a, i, n: integer; begin write('n = '); readln(n); a : = 0; for i : = 0 to n do if i mod 2 = 0 then a : = a + i; writeln('сумма всех чётных чисел от 0 до ', n, ' равна ', a); readln; end.
zahar64
zahar64
4,6(25 оценок)
Необходимо ввести пять чисел, сортирует  по возрастанию и  по убыванию.

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