Question

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

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.