Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Напишите программу в Паскале (очень нужноо, быстро) n в 1 степени=n*2*3*n (цикл for) b 1=1*2*3*4*5=120 (цикл white)

Людмила Теребунцева Ученик (219), закрыт 9 лет назад
Лучший ответ
Саня Семенов Оракул (60391) 9 лет назад
Это наверно факториал.
А для факториала надо писать фунуцию такую вот
pastebin.com/hApqjRzQ
Остальные ответы
Alexey N Просветленный (34745) 9 лет назад
(loof for x from 1 to n
(setq r (* r x)))
Людмила ТеребунцеваУченик (219) 9 лет назад
А полный текст программ. можете написать?
Alexey N Просветленный (34745) А это и есть полный текст программы.
johnsilver Просветленный (22483) 9 лет назад
Быстро, но не тестировал

sum:=0;
i:=1;
while sum<120 do
begin
sum:=sum*i;
inc(i);
end;
Антон Хрусталёв Ученик (207) 9 лет назад
sum:=0;
i:=1;
while sum<120 do
begin
sum:=sum*i;
inc(i);
end;
и всё
. Ученик (0) 9 лет назад
sum:=0;
i:=1;
while sum<120 do
begin
sum:=sum*i;
inc(i);
end;
Похожие вопросы