Напишите программу на языке программирования. Дана последовательность натуральных чисел оканчивающаяся 0. Найдите количество трехзначных среди них.
Напишите программу на языке программирования. Дана последовательность натуральных чисел оканчивающаяся 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.
Не нашли ответ?
Похожие вопросы