Дано натуральное число. Верно ли, что это число четырехзначное? Составное условие и вложенный оператор не использовать - 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.
Объяснение кода листинга программы
- Число:
n
(натуральное число),i
(счетчик цифр числа) - Проверка числа на четырехзначность:
- Число делится на 10 (остаток от деления на 10 равен нулю)
- Увеличение счетчика цифр числа на единицу
- Вывод сообщения о результате проверки числа на четырехзначность:
- Если счетчик цифр равен 4, то выводится сообщение
четырёхзначное
- Если счетчик цифр не равен 4, то выводится сообщение
не четырёхзначное
- Если счетчик цифр равен 4, то выводится сообщение