Question

Напишите функцию, которая вычисляет максимальное из 3х чисел в Visual Basic

Answer 1

var a, b, c: integer;

function naib(af, bf, cf: integer): integer;

var max: integer;

begin  

if af > bf then max := af else max := bf;

if cf > max then max := cf;

naib := max;

end;

begin

writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите c');

readln(c);

writeln('Наибольшим из введённых трёх чисел является ', naib(a, b, c));

end.

Объяснение: