Составьте программу в паскале abs. найти произведение всех числе от 1 до n
даниля3
1
11.04.2020 04:49
0
Другие вопросы по теме Информатика
СешМАНИ
30.11.2020 08:51
geralis728p0bgjl
06.08.2019 17:40
BigAwto
15.10.2020 15:07
ZlushiyPlayar
15.10.2020 15:05
Nikita20053103
15.10.2020 15:53
1Ліночка1
19.09.2021 20:52
JANAOOP29
19.09.2021 20:52
Ден4ик11111111
19.09.2021 20:49
полина1885
19.09.2021 20:41
Популярные вопросы
- Назвіть речовину, яка має формулуcr(oh) 2...
1 - Внесколько школьных буфетов было доставлено 750 пакетов кефира...
1 - Кто стоял во главе народного ополчения в 17 веке?...
2 - Укажите все дроби со знаменателем 11,большие 1/3, но меньше...
2 - Векторы a(2; 4) b(-1; 2) c (c1; c2) отложены от начала координат.чему...
3 - Ввидиотеке 16 коробок по 8 дисков с мультфильмами в каждой.сколько...
3 - Втреугольнике abc, угол a на 20° меньше угла с и в 2 раза больше...
1 - 1) длина стороны квадрата равна 6дм вычесли периметр квадрата...
2 - Яеё люблю , а она меня нет что делать?...
2 - Какие из этих слов звонкие, а какие глухие( шапка, санки, банк,...
3
Program n_multiplier;
var i,n,s:integer;
begin
s:=1;
writeln('Введите значение n:');
readln(n);
for i:=1 to n do
s:=s*i;
writeln('Произведение всех чисел от 1 до ', n, ' = ', s);
end.