Напишите программу, которая в последовательности целых чисел определяет количество нечетных чисел, кратных 3. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Программа должна вывести два числа: длину

последовательности (завершающий 0 не учитывается) и количество нечетных чисел, кратных 3.

Question

Информатика

Прохор

13 июля, 12:14

Напишите программу, которая в последовательности целых чисел определяет количество нечетных чисел, кратных 3. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Программа должна вывести два числа: длину

последовательности (завершающий 0 не учитывается) и количество нечетных чисел, кратных 3.

+2

Ответы (1)

Знаете ответ?

Ксеня · Answer 1

Var

A, b, c:integer;

Begin

b:=-1;

c:=0;

Repeat

ReadLn (A) ;

b:=b+1;

if (A mod 2 0) and (A mod 3 = 0) then c:=c+1

Until A = 0;

WriteLn ('Длина последовательности: ', b) ;

WriteLn ('Кол-ко нечётных чисел, кратных трём: ', c) ;

End.