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
Vara,R:real;
Begin
Write('a = ');Read(a);
Write('R = ');ReadLn(R);
WriteLn('S = ',Pi*R*R*a/360);
Write('L = ',Pi*R*a/180);
End.