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.

Answer 2

Конечно, давайте напишем программу на Pascal, используя цикл `while`, чтобы определить, содержит ли введенное число ровно 3 цифры. Программа будет просить пользователя ввести число и затем проверять его.

program CheckDigits;

var
  userInput, countDigits: integer;

begin
  // Вводим число с клавиатуры
  write('Введите число: ');
  readln(userInput);

// Инициализируем счетчик цифр
  countDigits := 0;

// Проверяем количество цифр в числе с использованием цикла while
  while userInput <> 0 do
  begin
    // Уменьшаем число на один разряд
    userInput := userInput div 10;
    
    // Увеличиваем счетчик цифр
    countDigits := countDigits + 1;
  end;

// Проверяем, содержит ли число ровно 3 цифры
  if countDigits = 3 then
    writeln('Введенное число содержит ровно 3 цифры.')
  else
    writeln('Введенное число не содержит ровно 3 цифры.');

// Ждем нажатия клавиши перед завершением программы
  readln;
end.

В данной программе используется цикл `while`, который выполняется, пока число `userInput` не станет равным 0. На каждой итерации цикла число делится на 10 (чтобы убрать один разряд), и счетчик цифр `countDigits` увеличивается на 1. После завершения цикла проверяется, равно ли значение `countDigits` трём, и выводится соответствующее сообщение.