Составить подпрограмму нахождения большего из трех чисел и применить в основной программе

Question

Информатика

Томуся

19 июля, 01:12

Составить подпрограмму нахождения большего из трех чисел и применить в основной программе

+1

Ответы (1)

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

Киряша · Answer 1

Function Max (a, b, c:integer) : integer;

Begin

if b > a then a:=b;

if c > a then a:=c;

result:=a;

End;

Var

a, b, c:integer;

Begin

Write ('Введите три числа: ') ; ReadLn (a, b, c) ;

Write ('Max = ', Max (a, b, c))

End.