Написать программу для решения задачи, используя ВЛОЖЕННЫЕ УСЛОВИЯ.
Даны три целых числа. Если их сумма положительная - найти среднее арифметическое этих чисел; если их сумма отрицательная - найти их среднее геометрическое (квадратный корень из произведения этих чисел); если сумма нулевая - заменить числа на противоположные.
Ответы
Ответ дал:
0
Ответ:
Объяснение:
program abd;
var k: real;
a,b,c : integer;
begin
readln(a,b,c);
s:=a+b+c;
if s=0 then begin
a:=-a;
b:=-b;
c:=-c;
write (a,' ', b,' ', c);
end;
if s<0 then
k:= sqrt(a*b*c);
else
K:= s/3;
writeln(k);
readln
end.
Вас заинтересует
1 год назад
6 лет назад