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