Технический форум - Показать сообщение отдельно - Сколько различных ожерелий можно составить?

Viachka · 03.11.2013, 15:22

А правильно ли будет сделать вот так:
function f(z : byte) : real; begin if (z <= 1) then f := 1 else f := f(z - 1) * z; end;
И ищё вопрос как правильно вывести результат на экран.

03.11.2013, 15:22	#3 (permalink)
Viachka Новичок Регистрация: 03.11.2013 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	А правильно ли будет сделать вот так: function f(z : byte) : real; begin if (z <= 1) then f := 1 else f := f(z - 1) * z; end; И ищё вопрос как правильно вывести результат на экран.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070