Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3, но не кратных 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода последовательности, и в последовательность не входит). Гарантируется, что в последовательности имеется хотя бы одно число кратное 3 и при этом не кратное 2.
Программа должна вывести одно число: количество чисел, кратных 3, но не кратных 2.
Answers & Comments
Ответ:
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) проверка условия
Вывод количества чисел