ПОМОГИТЕ СОСТАВИТЬ ПРРОГРАММЫ ДЛЯ ПАСКАЛЬ ABC!!! 1) Ввести с помощью read(); трехзначное...

Question

ПОМОГИТЕ СОСТАВИТЬ ПРРОГРАММЫ ДЛЯ ПАСКАЛЬ ABC!!! 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</p>

      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.