Напишите программу которая в последовательности целых чисел определяет количество нечетных чисел, кратных 3. Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести два числа:длину последовательности и количество нечетных чисел, кратных 3
var
a, z, x: integer;
begin
z:=0;
x:=0;
read(a);
while a <> 0 do
begin
if (a mod 3 = 0) and (a mod 2 <> 0)
then
z := z + 1 ;
x:=x+1;
read(a);
end;
writeln(x,' ', z);
end.
// PascalABC.NET
begin
var (n, k) := (0, 0);
var a: integer;
repeat
a := ReadInteger;
if a <> 0 then
begin
n += 1;
if a.IsOdd and (a mod 3 = 0) then
k += 1
end
until a = 0;
Print(n, k)
end.