Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3, но не кратных 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода последовательности, и в последовательность не входит). Гарантируется, что в последовательности имеется хотя бы одно число кратное 3 и при этом не кратное 2.
Программа должна вывести одно число: количество чисел, кратных 3, но не кратных 2.

Answer 1

Ответ:

program z1;

var a,k: integer;

begin  

k:=0;

repeat

read(a);

if (a mod 3 = 0) and (a mod 2 <> 0) then k:=k+1

until a=0;

writeln (k)

end.

Объяснение:

Цикл с постусловием (прекращение цикла, при числе равном 0):

1) ввод числа

2) проверка условия

Вывод количества чисел