Question

Напишите программу на языке программирования. Дана последовательность натуральных чисел оканчивающаяся 0. Найдите количество трехзначных среди них.

Answer 1

var
  a, c: integer;
 begin
  c := 0;
  repeat
    read(a);
    if(a.ToString.Length = 3) then c := c + 1;
  until(a = 0);
  write(c);
end.