Программа получает на вход целые числа, количество введенных чисел
Условие
Напишите программу, которая в последовательности целых чисел определяет количество нечетных чисел, кратных 3. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечетных чисел, кратных 3. Пример работы программы: Входные данные | Выходные данные | 4 6 15 180
| 0 | 4 |
|---|---|
| 1 |
Формат задания
Решение по шагам
Как рассуждать
Решение. var N, a, num: integer;begin N:= 0; num:= 0; readln(a); while a<>0 do begin num:=num+1; if (a mod 2 <>
Осталось ещё 2 шага
then N : = N + 1; readln(a); end…
| and (a % 3 == 0): n += 1 a =…
Бесплатно · займёт минуту