Question

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

Answer 1

Ответ:

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.

Answer 2

// 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.