a008888 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: var   n,m: longint;   res: real; procedure combination(n2,m2: longint); var i: longint; begin   res:=1;   for i:= 1 to n2-m2 do res:=res/i;   for i:= m2+1 to n2 do res:=res*i end; begin   writeln('BBecmu n');readln(n);   writeln('BBecmu m');readln(m);   combination(n,m);   writeln('Co4emaHue u3 ',n,' no ',m,' = ',res:0:0); end. (********************************************     the combinations of a, b, and c, taken two   at a time, are ab, bc, ac   ********************************************) Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 05:03 13-03-2009

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование