нужно написать программу через Pascal (с циклами) y=N! / K!

Ответы:

Пью

function Calc(N,K: integer): extended;
var Res: extended;
begin
Res:=1;
repeat
Res:= Res*N/K;
if N>1 then N:=N-1;
if K>1 then K:=K-1;
until (N=1) and (K=1);
Calc:=Res;
end;

Web

Да вы че, народ?
Не нужно вычислять факториал, начиная от от 1. Надо от Max(N,K) - Min(N,K) + 1 до Max(N,K), т.к. общая для обоих факториалов часть множителей просто сокращается.

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.