Ввести целое число и определить, верно ли, что в нём ровно 3 цифры. Нужно с помощью цикла "while"

Пример:

Введите число:

123

Да

Пример:

Введите число:

1234

Нет.

Question

Информатика

Филофея

12 июля, 14:32

Ввести целое число и определить, верно ли, что в нём ровно 3 цифры. Нужно с помощью цикла "while"

Пример:

Введите число:

123

Да

Пример:

Введите число:

1234

Нет.

+3

Ответы (1)

Знаете ответ на вопрос?

Илия · Answer 1

Var a, b: integer;

begin

readln (a) ;

b : = 0;

while a > 0 do begin

b : = b + 1;

a : = a div 10

end;

if (b = 3) then

writeln ('Да')

else

writeln ('Нет')

end.

Ввести целое число и определить, верно ли, что в нём ровно 3 цифры. Нужно с помощью цикла "while"Пример:Введите число:123ДаПример:Введите число:1234Нет.

Ввести целое число и определить, верно ли, что в нём ровно 3 цифры. Нужно с помощью цикла "while"

Пример:

Введите число:

123

Да

Пример:

Введите число:

1234

Нет.