Question

100 БАЛЛОВ ПАСКАЛЬ
На вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. Определить, сколько получено двузначных чисел.

Answer 1

Ответ:

var

 a, k: integer;

begin

 writeln('Введите целые числа, окончание ввода 0');

 k := 0;

 repeat

   readln(a);

   if (a > 9) and (a < 100) or (a < -9) and (a > -100) then k := k + 1;

 until a = 0;

 write('Колличество двузначных: ', k)

end.