Задача Pascal, цикл While Ввести целое число и определить, верно ли, что в нем ровно 3...

Question

Задача Pascal, цикл While
Ввести целое число и определить, верно ли, что в нем ровно 3 цифры.
Пример:
Введите число:123:да

Comments

Var A:integer;BeginWrite('Введите число: ');ReadLn(A);A:=Abs(A);if (99<A)and(A<1000) then Write('да')else Write('нет')End.

Answer 1

Begin
  var c := 0;
  var x := readinteger('Введите число:');
  while x > 0 do begin
    x := x div 10;
    c := c + 1;
  end;
  if(c = 3) then write('Да')
  else write('Нет');
end.