Написать программу: из трех данных чисел (a, d и с) найьи максимальное и умньшить его на 5

Question

Информатика

Вовуля

18 августа, 16:48

Написать программу: из трех данных чисел (a, d и с) найьи максимальное и умньшить его на 5

+3

Ответы (1)

Знаете ответ?

Эладя · Answer 1

Var a, b, c: integer;

function max (a, b : integer) : integer;

begin

if a>b then max:=a

else max:=b;

end;

begin

readln (a, b, c) ;

writeln (max (max (a, b), c) - 5) ;

end.