Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Нужна помощь!

Автор: len-ti 12.05.2006 2:53

Даны 6 различных чисел. Найти максимальное из них,
определив функцию, находящую максимальное из 2-х различных чисел.

Автор: volvo 12.05.2006 3:05

function max(a, b: integer): integer;
begin
max := a;
if b > a then max := b;
end;

...
writeln('max of 6 = ', max(max(max(n1, n2), n3), max(max(n4, n5), n6)))
...


P.S. А вот название темы нехорошее... Исправь...