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

@pipipka · Регистрация: 30.01.2013

Author24 — интернет-сервис помощи студентам

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

borne · 12.02.2013, 10:43

Oo или я не до конца понял или:

Pascal

1 2	if a>b then write a > b else write a < b

@pipipka · 12.02.2013, 23:24 **[ТС]**

нужно написать программу через функцию

@ermolay · 12.02.2013, 23:48

Pascal

function minim(x,y: integer): integer;
begin
  if x>y then minim:=x
    else if y>x then minim:=y;
end;
var
  a,b: integer;
begin
  write('Ââåäèòå äâà ÷èñëà: ');
  readln(a,b);
  if a=b then writeln('Îíè ðàâíû') else
    writeln(minim(a,b),' áîëüøå');
  readln;
end.

@pipipka 0 / 0 / 0 Регистрация: 30.01.2013 Сообщений: 11
		1
	Разработать функцию, определяющую максимальное из двух чисел 12.02.2013, 10:38. Показов 1363. Ответов 3 Метки нет (Все метки) разработать функцию, опрледеляющую максимальное из двух чисел 0

@pipipka 0 / 0 / 0 Регистрация: 30.01.2013 Сообщений: 11
	12.02.2013, 23:24 [ТС]	3
	нужно написать программу через функцию 0

	12.02.2013, 23:48

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

Решение