Даны три числа , если они расположены по возрастанию, то увеличить каждое в три раза, если по убыванию, то уменьшить каждое в три раза, иначе - найти их
сумму.
Var
a,b,c:real;
begin
Write(Введите три числа: ); Readln(a,b,c);
if (b>a) and (c>b) then Writeln(3*a, ,3*b, ,3*c)
else
if (a>b) and (b>c) then Writeln(a/3, ,b/3, ,c/3)
else Writeln(Сумма равна ,a+b+c)
end.
Тестовые решения:
Введите три числа: 14 17.8 -6
Сумма равна 25.8
Введите три числа: 14 37 62.43
42 111 187.29
Введите три числа: 45 0 -10
15 0 -3.33333333333333
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
