Question

A: На вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. Определить, сколько получено чисел, которые делятся на 3.
B: На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём. Определить, сколько получено двузначных, которые заканчиваются на 3.
Паскаль.

Answer 1

Программа:

Pascal:

А)

var

 n, k: integer;

begin

 readln(n);

 while n <> 0 do begin

   if n mod 3 = 0 then inc(k);

   readln(n);

 end;

 writeln(k, ' чисел.');

end.

В)

var

 n, k: integer;

begin

 readln(n);

 while n <> 0 do begin

   if (n mod 3 = 0) and (length(IntToStr(n)) = 2) then inc(k);

   readln(n);

 end;

 writeln(k, ' чисел.');

end.