Всі умови | Умова: Дано дійсні числа а, b, с. Отримати...
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №427)
program Pr427;
var
a, b, c, r, f : real;
function max(x,y,z: real): real;
begin
if (x>=y) and (x>=z) then
max:=x;
if (y>=x) and (y>=z) then
max:=y;
if (z>=x) and (z>=y) then
max:=z;
end;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
f:= -9999999;
r:= (max(a,a+b,f) + max(a, b + c,f))/(1 + max(a+b*c,1,15));
writeln(r);
readln;
end.