Найти наибольшее из трех чисел, используя процедуру нахождения наибольшего из 2 чисел.

@Maxusha · Регистрация: 19.12.2013

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

10. Найти наибольшее из трех чисел, используя процедуру нахождения наибольшего из 2 чисел.

@ildwine · 19.12.2013, 07:46

Pascal

var
  a, b, c, t1, t2 : integer;
 
procedure max(x, y :integer; var res : integer);
begin
  if x >= y then res := x else res := y
end;
 
begin
  write('введите 3 числа: ');
  readln(a, b, c);
  max(a, b, t1); {максимальное из a, b - результат t1}
  max(t1, c, t2);
  writeln('максимальное из 3 чисел: ', t2)
end.

@Maxusha 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 15
		1
	Найти наибольшее из трех чисел, используя процедуру нахождения наибольшего из 2 чисел. 19.12.2013, 00:41. Показов 14675. Ответов 1 Метки нет (Все метки) 10. Найти наибольшее из трех чисел, используя процедуру нахождения наибольшего из 2 чисел. 0

	19.12.2013, 07:46

Опции темы

Найти наибольшее из трех чисел, используя процедуру нахождения наибольшего из 2 чисел.

Решение