Question

Напишите функцию function min (a,b,c,d: integer):integer (Pascal), находящую наименьшее из четырех данных чисел.

Answer 1

function min(a,b,c,d: integer): integer;
begin
if a>b then a:=b;
if a>c then a:=c;
if a>d then a:=d;
min:=a
end;

Answer 2

Ты мне текст программы целиком со вставленной в неё функцией напиши. И в какой строке ошибка.

Answer 3

Я поняла. Тебе нужна не функция, а программа с функцией.

Answer 4

var a,b,c,d: integer;
function min(a,b,c,d: integer): integer;
begin
if a>b then a:=b;
if a>c then a:=c;
if a>d then a:=d;
min:=a
end;

begin
write('Введите числа: ');
readln(a,b,c,d);
writeln(min(a,b,c,d))
end.

Answer 5

Спасибо. Теперь всё работает.))

Answer 6

Конечно работает. Но ты просил функцию, а не программу с ней. Не предполагала, что использовать не сможешь.