Показать сообщение отдельно
  #3  
Старый 08.11.2018, 20:28
Аватар для ined
ined ined вне форума
Начинающий
 
Регистрация: 16.11.2008
Адрес: Российская Федерация!! :)
Сообщения: 164
Версия Delphi: Delphi 2010
Репутация: 1272
По умолчанию

Или так
Код:
Procedure HappyNumbers(n:DWORD; var HN:DWORD; var AHN:DWORD);
begin
HN:= n div 7;
AHN:= HN;
if n mod 7 >= 2 then inc(AHN);
end;
__________________
11011111 INED Home code
VK
Ответить с цитированием