Дано целое число n (> 0). найти произведение n! =1*(в delphi.7 )
tatianafirstovp06ovw
1
03.09.2019 03:00
0
Другие вопросы по теме Информатика
spirt708ozrmv0
17.03.2021 13:02
ВиталькаВиталя
17.03.2021 13:01
12355567908753
17.03.2021 13:01
ds0708
02.11.2020 15:27
marichkakyhar
17.09.2019 20:00
dariarez
25.04.2020 17:10
hfb1
25.04.2020 17:09
denisprokopev
09.07.2019 13:10
GB001
11.04.2020 12:47
Популярные вопросы
- Если 1% числа равен 5 то чему будет равны 2% этого числа 6%этого числа...
3 - Грузовой автомобиль за один рейс может перевезти не более 5т груза какое...
3 - Придумайте придумать письмо ветерану великой отечественной войны....
1 - Подскажите красивое паздравление с днем рождения...
3 - Соединение с ионной кристаллической решеткой образуется при взаимодействии...
1 - Предпринимательство - это свобода или иллюзия её? эссе,...
2 - Выпишите те глаголы которые отвечают на вопрос что сделаешь? глаголы:...
1 - Выполните умножение (5b-1)( b^{2}-5b+1)=...
1 - Раздели слова на две группы.огонь,огненный,вечер,вечерний,сосед,соседний,холод,холодный,вкус,вкусный,кирпич,кирпичный,мороз,морозный,звезда,звездный,степь,степной,золото,золотой,ночь,ночной.подбери...
2 - Самое большое озеро (горное) евразии...
1
Var
F:real;
N:integer;
Begin
Write('N = ');
ReadLn(N);
F:=1;
For N:= 1 to N do
F:=F*N;
Write(N,'! = ',F);
ReadLn
End.