Напишите программу, которая в последовательности целых чисел определяет их количество и сумму четных чисел. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30000. программа должна вывести два числа : длину последовательности и сумму чётных чисел.
155
327
Ответы на вопрос:
Program g; var sum, a, b: integer; begin b : = 0; sum : = 0; repeat read(a); if(a mod 2 = 0) then sum += a; if (a< > 0)then b += 1; until (a = 0); write('сумма четных чисел - ',sum,' общее кол-во чисел - ',b)end.
в начале t равен 2, затем в цикле мы умножаем t на i, так 3 раза:
2 * 1 = 2;
2 * 2 = 4;
4 * 3 = 12;
в результате этих действий t равен 12!
Популярно: Информатика
-
mmmdz06.10.2022 00:26
-
Катюшка31100124.12.2021 01:41
-
Dataset14701.02.2021 06:42
-
hfhfhjfy16.10.2022 19:03
-
finicot17.11.2020 13:13
-
dflbvdflbv09.05.2021 05:27
-
natalavorona35829.07.2020 03:58
-
mmmaaassshx02.02.2022 20:11
-
bcfujd1907.06.2023 05:17
-
vasyamlodp0c2ay28.01.2020 21:46