Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Написать программу в Pascal
числа a,b и c вводятся с клавиатуры.найти max(a,a+b)+max(a,b+c)/1+max(a+b*c,1,5)

Ответ оставил Гость

Уверен, что формула в условии написана неверно, но уж как написано...

var
  a,b,c:real;
begin
  Write(Введите a,b,c: ); Read(a,b,c);
  Writeln(Результат: ,max(a,a+b)+max(a,b+c)/1+max(max(a+b*c,1),5))
end.

Тестовое решение:
Введите a,b,c: -3 5.5 4
Результат: 31

А вот так, на мой взгляд, должно быть:
var
  a,b,c:real;
begin
  Write(Введите a,b,c: ); Read(a,b,c);
  Writeln(Результат: ,(max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1.5)))
end.

Тестовое решение:
Введите a,b,c: -3 5.5 4
Результат: 0.6