Определить число полученное выписыванием в обратном порядке цифр заданного целого трехзначного числа
Определить число полученное выписыванием в обратном порядке цифр заданного целого трехзначного числа
Гость
Ответ(ы) на вопрос:
Гостьvar n,n1,m:integer;
begin
write('n = ');
readln(n);
n1:=abs(n);
m:=(n1 mod 10)*100+(n1 div 10 mod 10)*10+(n1 div 100);
if n<0 then m:=-m;
writeln('m = ',m);
end.
Пример:
n = -123
m = -321
Не нашли ответ?
Похожие вопросы