Регистрация
NonaANDnana
10.09.2022 01:57
Информатика
Есть ответ 👍

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

215
283
Посмотреть ответы 2

Ответы на вопрос:

marius95
marius95
4,4(4 оценок)

я так понимаю, что а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.   

     

 

   

 

     

reginam800eymailru
reginam800eymailru
4,4(82 оценок)
2000+100+1000+10+1000+5

Популярно: Информатика