Chao
7 год назад
Напишите программу на языке программирования. Дана последовательность натуральных чисел оканчивающаяся 0. Найдите количество трехзначных среди них.
ОТВЕТЫ
Serapionovich
Jul 12, 2019
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.
a, c: integer;
begin
c := 0;
repeat
read(a);
if(a.ToString.Length = 3) then c := c + 1;
until(a = 0);
write(c);
end.
151
Смежные вопросы:
