Линейные алгоритмы (Проверка), Вопрос Опции

[Stas86]

Всем привет.
Условие: Заданы 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 - 8.12.2010 14:17

[TarasBer]

Упс, накладочка с сообщениями...

Сообщение отредактировано: TarasBer - 8.12.2010 14:23