2. запишите на языке паскаль выражения 3. a) a2+b2 b ) ab+bc c) a+ b -245 (a+b)2 c 4. найти среднее арифметическое четырех чисел. 5. дана сторона квадрата найти его периметр. 6. даны стороны прямоугольника найти его площадь и периметр. 7. даны два числа найти их сумму, разность, произведение, а также частное от деления первого на второе

я так понимаю, что а2 -это а умножить на 2, а b2 - это b умножить на 2

a) a*2+b*2;

b) a*b+b*c; c) a+b -245*(a+b)*2*c;

4. program avgarif;

      uses crt;

      var a,b,c,d,res: real;

      begin

            clrscr;  

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

            readln(a);

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

            readln(b);        

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

            readln(c);

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

            readln(d);

          res: =(a+b+c+d)/4;

          writeln('среднее арифметическое: ',res);

          readkey;

      end.   

5. program kvadrat;

      uses crt;

      var a,p: real;

      begin

            clrscr;  

            write('введите сторону квадрата а: ');

            readln(a);  

            p: =4*a;

            writeln('периметр квадрата: ',p);        

            readkey;

    end.   

6.program prjamoug;  

      uses crt;

      var a,b,p,s: real;

      begin

          clrscr;

            write('введите 1 сторону прямоуголника: ');

            readln(a);

            write('введите 2  сторону прямоуголника : ');

            readln(b);

            s: =a*b;

            p: =2*a+2*b;

          writeln('периметр прямоугольника: ',p);  

          writeln('площадь   прямоугольника  : ',s);          

        readkey;

    end.   

  7. program arifm;

        uses crt;

        var a,b,r,s,p,d: real;  

begin

            clrscr;  

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

            readln(a);

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

            readln(b);        

            p: =a*b;

            s: =a+b;

            d: =a/b;

            r: =a-b;

          writeln('произведение a и b: ',p);  

          writeln('сумма  a и b   : ',s);

          writeln('частное a и b: ',d);  

          writeln('разность  a и b   : ',r);      

    readkey;

    end.   

я так понимаю, что нужно закрасить тёмные клетки.

Объяснение:

нц пока снизу не свободно

вправо

КЦ

нц пока снизу свободно

вниз

закрасить

КЦ

нц пока снизу не свободно

закрасить

вправо

кц