Question

1 Дано трехзначное число. Найти число, полученное при прочтении его цифр
справа налево. Паскаль
2 . Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали
ее в конце. Найти полученное число. Паскаль

Answer 1

1.                                        

program raf105;

var abc,a,b,c: integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

abc:= c*100 + b*10 + a;

writeln('Число наоборот: ',abc);

end.

2.                                        

program raf105;

var abc,a,b,c: integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

abc:= b*100 + c*10 + a;

writeln('Первое число переместили в конец: ',abc);

end.

                                         

PascalABC 3.4.2