Найти первую цифру числа - Turbo Pascal (33684)
Формулировка задачи:
Дано натуральное число n (n<9999) найти первую цифру числа
Решение задачи: «Найти первую цифру числа»
textual
Листинг программы
var n : integer; begin repeat write('введите натуральное число n (<9999): '); readln(n) until (n > 0) and (n < 9999); while n >= 10 do n := n div 10; writeln('первая цифра числа: ', n); readln end.
Объяснение кода листинга программы
- В начале объявляются переменные: n - целочисленного типа, и readln - функция чтения строки из стандартного ввода.
- Затем идет цикл repeat-until, который продолжается до тех пор, пока введенное число n удовлетворяет условиям: больше нуля и меньше 9999.
- Внутри цикла переменная n считывается из стандартного ввода с помощью функции readln.
- Затем выполняется операция деления n на 10, что приводит к уменьшению числа на 10 до тех пор, пока оно не станет меньше 10.
- После выхода из цикла while переменная n будет содержать первую цифру введенного числа.
- Затем с помощью функции writeln выводится сообщение с первой цифрой числа.
- Цикл repeat-until завершается только после ввода числа, которое не удовлетворяет условиям (больше нуля и меньше 9999).
- В конце программы выводится сообщение с помощью функции readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д