Образовать из данного числа новое записью цифр в обратном порядке - Pascal
Формулировка задачи:
Найти число М, которое образовано из данного числа записью цифр в обратном порядке.
Решение задачи: «Образовать из данного числа новое записью цифр в обратном порядке»
textual
Листинг программы
var
i,n,m,k: integer;
begin
write(' n: '); readln(n);
if (n>0) and (n mod 10 = 0) then k:=1;
While (n >0) do
begin
m:=m*10 + (n mod 10);
n:=n div 10;
i:=i+1;
end;
write(' Число в обратном порядке: ');
if k=1 then write(0);
writeln(m);
Write(' M = ',m);
end.
Объяснение кода листинга программы
В этом коде выполняется следующие действия:
- Задаётся вопрос пользователю на ввод числа (n).
- Если число (n) больше нуля и является двузначным числом (n mod 10 = 0), то переменной k присваивается значение 1.
- В цикле while выполняется следующие действия: 3.1. Переменной m присваивается значение произведения m на 10 и остатка от деления n на 10 (n mod 10). 3.2. Делится n на 10. 3.3. Присваивается переменной i значение i+1.
- Выводится сообщение с числом в обратном порядке.
- Если k=1, то выводится сообщение с числом m.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д