uses crt;
var
number, conv, i : integer;
begin
write('Введите число : '); readln(number);
conv := 0;
while (number >0) do
begin
i := number mod 10 ;
conv := conv*10 + i ;
number := number div 10;
end;
writeln('Обратная запись числа: ', conv);
readln;
end.
вот на паскале
Сообщение на форуме
3 апреля 2015 в 13:11:30
Числа от 1 до 5 записать в обратном порядке.
Моё задание от преподавателя звучит так: "Записать заданное число в обратном порядке".
А куда его записывать он не сказал.