Правила форума
Прочтите прежде чем задавать вопрос!
Условие: Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое модулей. Исходные данные a,b,c,d.
Проверьте пожалуйста задачу, она запускается, но мне важно знать, все ли в ней правильно. Делал по аналогии.
Program zad1;
Uses crt;
Var a,b,c,d:longint;
begin
a:=abs (a);
b:=abs (b);
c:=abs ©;
d:=abs (d);
writeln ('vvedite 4 4isla');
readln (a,b,c,d);
writeln ('srednee arifmetich=', (0.5*(a+b+c+d)):8:3);
writeln ('srednee geometri4 modulei=', (sqrt(a*b*c*d)):8:3);
writeln ('nagmi enter');
readln;
end.
Сообщение отредактировано: Stas86 -
