нужно решить задачи с 7 по 12 запись всё в паскале

7) 

 Program n7;

 

Uses Crt;

const pi=3.14;

var L,R,S:real;

begin

     clrscr;  

 

     write('Введите радиус R: ');

      readln(R);

      L:=2*pi*R;

      S:=pi*(R*R); 

 

       writeln('Длина окружности L= ',L);

       writeln('Площадь окружности S= ',S);     

    readkey;

 

end. 

 

 

8)

Program n8;

Uses Crt;

var a,b,S:real;

begin

     clrscr;  

     write('Введите число a: ');

     readln(a);

      write('Введите число b: ');

      readln(b);

      S:=(a+b)/2 

       writeln('Среднее арифметическое S= ',S);     

    readkey;

end. 

 

 

 

9)

Program n9;

Uses Crt;

var a,b,S:real;

begin

     clrscr;  

     write('Введите число a: ');

     readln(a);

      write('Введите число b: ');

      readln(b);

      S:=sqrt((a*b)); 

       writeln('Среднее геометрическое S= ',S);     

    readkey;

end. 

 

10)

Program n10;

Uses Crt;

var a,b:real;

begin

     clrscr;  

     write('Введите число a: ');

     readln(a);

      write('Введите число b: ');

      readln(b);

       

        writeln('Сумма квадратов а и b = ',sqr(a)+sqr(b)); 

        writeln('Разность квадратов а и b = ',sqr(a)-sqr(b));   

 

        writeln('Произведение квадратов а и b = ',sqr(a)*sqr(b));       

         writeln('Частное квадратов а и b = ',sqr(a) / sqr(b));  

    readkey;

end. 

         

 

Program n11;

Uses Crt;

var a,b:real;

begin

     clrscr;  

     write('Введите число a: ');

     readln(a);

      write('Введите число b: ');

      readln(b);

       

        writeln('Сумма модулей а и b = ',abs(a)+abs(b)); 

        writeln('Разность модулей а и b = ',abs(a)-abs(b));   

        writeln('Произведение модулей  а и b = ',abs(a)*abs(b));       

         writeln('Частное модулей  = ',abs(a) / abs(b));  

    readkey;

end. 

 

12) 

 Program n12;

Uses Crt;

var a,b,c,P:real;

begin 

     clrscr;  

     write('Введите катет a: ');

     readln(a);

      write('Введите катет b: ');

      readln(b);

     c:=sqrt((a*a)+(b*b));

     P:=a+b+c;

       writeln('Гипотенуза тругольника= ',с);

       writeln('Периметр  тругольника= ',P);     

    readkey;

end.