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.