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

JloJlKeK JloJlKeK    3   15.08.2019 22:20    1

Ответы
AmoskovaAlenka AmoskovaAlenka  04.10.2020 21:50
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика