Question

Составить пррограммы для паскаль ! 1) ввести с read(); трехзначное число n. в нем зачеркули 1-ю слева цифру и приписали ее в конце числа. после этого число умножили на 10. вывести полученное число 2) ввести с read(); числа a — сторона квадрата, r - радиус окружности (тип real). выяснить, площадь какой фигуры больше: квадрата или круга.

Answer 1

1)

var n:integer;

begin

   read(n);

   n := 100*(n-100*(n div 100)) + 10*(n div 100);

   write(n)

end.

2)

var a,r:real;

begin

   readln(a,r);

   if(a*a>3.1415927*r*r) then

      writeln('Square!')

   else if(a*a<3.1415927*r*r) then

      writeln('Circle!')

   else

      writeln('Equal!')

end.

Answer 2

Program Zadacha;
var
    N: integer;
    M: integer;
Begin
    Read(N);
    
    M := N div 100;
    M := M + ((N mod 100) div 10)*10;
    M := M + (N mod 10)*100;
    
    WriteLn(M);    
    
    ReadLn;
    ReadLn;
End.