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

Question

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

Пример:

Введите число:
123
Да

Пример:

Введите число:
1234
Нет.

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.