Поиск минимального из трех чисел при помощи функции, находящей минимум из двух чисел

@Dor · Регистрация: 23.01.2015

написать функцию поиска меньшего с двух чисел. составить программу поиска минимального с трех чисел.
помогите.

@Sergio Leone · 01.02.2015, 00:24

Сообщение от Dor

написать функцию поиска меньшего с двух чисел

Pascal

function Min(A,B : integer) : integer;
begin
   if A<B then  Min := A else Min = B
end;

Сообщение от Dor

составить программу поиска минимального с трех чисел.

Pascal

var N1,N2,N3 : integer;
begin
  WriteLn('Enter 3 numbers: ');
  Readln(N1,N2,N3);
  WriteLn('minimal = ', Min(Min(A,B), C));
  Readln
end.

@Dor 1 / 1 / 0 Регистрация: 23.01.2015 Сообщений: 80
		1
	Поиск минимального из трех чисел при помощи функции, находящей минимум из двух чисел 31.01.2015, 23:39. Показов 5760. Ответов 1 Метки нет (Все метки) написать функцию поиска меньшего с двух чисел. составить программу поиска минимального с трех чисел. помогите. 0

Опции темы

Решение