Если цифры числа одинаковы - уменьшить заданное число на 1, иначе заменить меньшую цифру нулем - Free Pascal
Формулировка задачи:
Народ, выручите пожалуйста, я немного дуб в этом=(( Такое вот задание:
Дано натуральное двухзначное число. Если цифры в нем одинаковы, то уменьшить заданное число на 1; если цифры в нем разные, то меньшую из них заменить в заданном числе нулём.
Решение задачи: «Если цифры числа одинаковы - уменьшить заданное число на 1, иначе заменить меньшую цифру нулем»
textual
Листинг программы
var N : integer;
begin
repeat
Writeln('Введите двузначное число.');
Write(' N= '); Readln(N);
if (N>99) or (N<1) then Writeln('N должно быть двузначным');
until (N>=10) and (N<=99);
...
Объяснение кода листинга программы
В данном коде используется цикл repeat-until для ввода двузначного числа N и проверки его на соответствие диапазону от 10 до 99. При этом, если число не двузначное, выводится сообщение об ошибке. Далее, предполагается, что код продолжается и обрабатывает значение N. Однако, в предоставленном отрывке кода нет логики для обработки самого числа N.