Показать сообщение отдельно
Старый 12.04.2013, 22:37   #3 (permalink)
interacia
Member
 
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
По умолчанию

Функция возвращающая количество амеб.

Код:
function amebs(has:integer):integer;
 begin
if has<3 then amebs:=1
else amebs:=amebs(has-3)*2;
 end;
Подаете в неё количество часов
Для примера
Код:
Write('ameb:=',amebs(10));
interacia вне форума   Ответить с цитированием
Ads

Яндекс

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