Question

Дано трёхзначное число.Найти число полученное при прочтение его цифр справа налево (пожалуйста фото с Flowgorithma

Answer 1

Var a:integer;
begin
write('Введите число: ');
readln(a);
if a<0 then write ('-');
while a<>0 do
begin
write (abs (a mod 10));
a:=a div 10
end
end.