Напишите функцию function min (a,b,c,d: integer):integer (Pascal), обретающую меньшее из

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

Задать свой вопрос
1 ответ
Function min(a,b,c,d: integer): integer;
begin
if agt;b then a:=b;
if agt;c then a:=c;
if agt;d then a:=d;
min:=a
end;
Ленка Чубинец
Встречено '.', а ожидалось ';' высвечивает эту ошибку.
Lena Marunenko
А в какую программу ты её вставляешь? У меня здесь точек вообще нет.
Беззаботный Геннадий
Pascal.
Мирослава
Ты мне текст программки полностью со вставленной в неё функцией напиши. И в какой строке ошибка.
Альбина Степная
Я сообразила. Для тебя нужна не функция, а программа с функцией.
Марина Тормышева
var a,b,c,d: integer;function min(a,b,c,d: integer): integer;beginif a>b then a:=b;if a>c then a:=c;if a>d then a:=d;min:=aend;begin write('Введите числа: '); readln(a,b,c,d); writeln(min(a,b,c,d))end.
Мирослава Кавкасидзе
Спасибо. Сейчас всё работает.))
Яна Сковородина
Конечно работает. Но ты просил функцию, а не программу с ней. Не подразумевала, что использовать не сможешь.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт