Я так понимаю, что а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.
begin
writeln('1: ',(sqrt(10)+1)/(6.25-1.8*1.8));
writeln('2: ',sin(5)/cos(5)*10*sqrt(19));
writeln('3: ',100*sin(4));
writeln('4: ',sin(cos(1))/0.25);
writeln('5: ',exp(sin(3))*ln(2));
writeln('6: ',sqrt(sqrt(5)+sqrt(6)));
writeln('7: ',(sqrt(3)+2*sqrt(2))/sqrt(sqrt(5)));
writeln('8: ',(exp(sin(3))*ln(2)+exp(sin(2))*ln(2))/(exp(2.4)*ln(4)+1));
end.
Результат:
1: 1.38281649839481
2: -147.353232893516
3: -75.6802495307928
4: 2.0575810340942
5: 0.798202533367663
6: 2.16461491269994
7: 3.04977540329462
8: 0.0980510445730408
Подробнее - на -
Объяснение:
