Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

№1: Даны 4 числа найти их сред. арифмет. и сред. геомет.
№2: Даны 2 числа найти сред. ариф кубов этих чисел , сред.геом ,модуль этих чисел
№3: Найти площадь и периметр площади прямоугольного треугольника.

Ответ оставил Гость

Задача №1
 
var a,b,x,z,sra,srg:real; 
begin 
writeln(Введите 4 числа); 
read(a,b,x,z); 
sra:=(a+b+x+z)/4; 
srg:=power(a*b*x*z, 1/4); 
writeln(Среднее арифметическое этих чисел =,sra); 
writeln(Среднее геометрическое этих числе =,srg); 
end. 

Задача №2

var a,b,sra,srg:real; 
begin 
writeln(Введите 2 числа); 
read(a,b); 
sra:=(a+b)/2; 
srg:=power(a*b, 1/2); 
writeln(Среднее арифметическое этих чисел =,sra); 
writeln(Среднее геометрическое этих числе =,srg); 
writeln(Модули этих чисел a=,abs(a), b=,abs(b)) 
end.

Задача №3

var a,b,c:real; 
begin 
writeln(Введите длину катетов и гипотенузы соотвественно); 
read(a,b,c); 
if a=0 then a:=sqrt(sqr(c)-sqr(b)); 
if b=0 then b:=sqrt(sqr(c)-sqr(a)); 
if c=0 then c:=sqrt(sqr(a)+sqr(b)); 
writeln(Площадь треугольника =,a*b*0.5); 
writeln(Периметр треугольника =,a+b+c); 
end.