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

0 голосов
21 просмотров

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


Информатика (15 баллов) | 21 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(6.9k баллов)