Дано натуральное число. Верно ли, что это число четырехзначное? Составное условие и вложенный оператор не использовать - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Дано натуральное число. Верно ли, что это число четырехзначное? Составное условие и вложенный оператор не использовать. Не могу додуматься, вроде как через while это нужно делать.

Решение задачи: «Дано натуральное число. Верно ли, что это число четырехзначное? Составное условие и вложенный оператор не использовать»

textual
Листинг программы
begin
  var (n, i) := (ReadlnInteger('Число:'), 0);
  while (n > 0) do begin
    n := n div 10;
    inc(i);
  end;
  writeln(i = 4 ? 'четырёхзначное' : 'не четырёхзначное');
end.

Объяснение кода листинга программы

  1. Число: n (натуральное число), i (счетчик цифр числа)
  2. Проверка числа на четырехзначность:
    • Число делится на 10 (остаток от деления на 10 равен нулю)
    • Увеличение счетчика цифр числа на единицу
  3. Вывод сообщения о результате проверки числа на четырехзначность:
    • Если счетчик цифр равен 4, то выводится сообщение четырёхзначное
    • Если счетчик цифр не равен 4, то выводится сообщение не четырёхзначное

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы