Patricia GibbsНаписать программу для решения задачи, используя ВЛОЖЕННЫЕ УСЛОВИЯ. Даны три целых числа. Если их сумма положительная - найти среднее арифметическое этих чисел; если их сумма отрицательная - найти их среднее геометрическое (квадратный корень из произведения этих чисел); если сумма нулевая - заменить числа на противоположные.
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
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.
13
PerrotЧтобы ответить необходимо зарегистрироваться.
