Написать программу, которая вычисляет произведение целых чисел от 1 до n. число n запрашивается с клавиатуры. pascal abc
RomaAksenov2007
2
26.09.2019 22:20
1
Другие вопросы по теме Информатика
Tenwolf
11.09.2019 15:28
Zinovevadara191
05.08.2019 12:40
АлисаAprel
25.11.2020 13:44
Abdulla234
25.11.2020 13:50
ilona122
25.11.2020 13:50
lyubashabelyaeva
25.11.2020 13:50
жека596
25.11.2020 13:51
kate831
25.11.2020 13:51
AREN12082003
25.11.2020 13:51
Популярные вопросы
- Впараллелограмме abcd известны две его вершины: а-1; : 4), d(6: -3)...
2 - Даны координаты вершин пирамиды abcd: а(0; -3; 0), b(0; 0; -2), d-4:...
1 - Сделайте разбор предложения: поверьте, что самый лучший профессор и...
2 - Скільки води можна нагріти кип ятильником від 10°с до 100 °c, спалюючи...
1 - Докажите что при любых значениях...
3 - 2первого варианта! дано: abcd. - параллелограмм, ae - биссектриса,...
2 - Врезультате изменения получены следующие значения величание x: x1=20;...
2 - Если a1 = 72, d = -6, найдите сумму первых восемнадцати членов последовательности,...
2 - Вычислить длину вектора m, если m = 3a-b , |a|=√3, |b|=2 , угол между...
3 - (20 )! надо написать небольшой твір (желательно не из интернета) на...
2
i,n:integer;
s:real;
begin
Write('n= ');
Readln(n);
s:=1;
for i:=1 to n do s:=s*i;
Writeln('Произведение ',s);
end.