Напишите программу в паскале с помощью div и mod! ЗАРАНЕЕ СПАСИБО!!!
Вводится трехзначное целое число. Получить новое число, записанное этими же цифрами, но в обратном порядке.
Вводится трехзначное целое число. Получить новое число, записанное этими же цифрами, но в обратном порядке.
More Questions From This User See All
Answers & Comments
Verified answer
Var a,a1,a2,a3,b:integer;begin
write('a = ');
readln(a);
a1:=abs(a) div 100;
a2:=abs(a) div 10 mod 10;
a3:=abs(a) mod 10;
b:=sign(a)*(a3*100+a2*10+a1);
writeln(b);
end.
Пример:
a = -456
-654