Дано натуральное число. Записать число, записанное теми же цифрами, но в обратном порядке. Подсказка последовательно отделяемое каждую цифру, потом ее значение прибавляем к переменной s, умноженной на 10.
Дано натуральное число. Записать число, записанное теми же цифрами, но в обратном порядке. Подсказка последовательно отделяемое каждую цифру, потом ее значение прибавляем к переменной s, умноженной на 10.
Гость
Ответ(ы) на вопрос:
ГостьPascal ABC
program perevod;
uses crt;
var
a,i,error:integer;
s,d:string;
begin
write('Введите число: ');
readln(a);
str(a,s);
for i:=1 to length(s) do d:=s[i]+d;
val (d,a,error);
write('Ответ: ',a);
end.
Не нашли ответ?
Похожие вопросы