IMHO.WS - Показать сообщение отдельно - Решите задачи на ТурбоПаскале (Save the Jeff)

Ghost · 29.04.2004, 11:32

Jeff

Код:

procedure Procent (n, proc: integer; var res: real);
begin
  res := n / 100 * proc;
end;

29.04.2004, 11:32	# 41
Ghost ::VIP:: Звезда первого сезона Молчун-2004 Регистрация: 24.08.2002 Сообщения: 1 575	Jeff Код: procedure Procent (n, proc: integer; var res: real); begin res := n / 100 * proc; end; __________________ Действовать надо тупо и это лучшее доказательство нашей чистоты и силы!