Дано натуральное число. Записать число, записанное теми же цифрами, но в обратном порядке. Подсказка последовательно отделяемое каждую цифру, потом ее значение прибавляем к переменной 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
