Разработать блок схему и программу нахождения произведения натурального ряда чисел до числа n включительно
Разработать блок схему и программу нахождения произведения натурального ряда чисел до числа n включительно
Гость
Ответ(ы) на вопрос:
ГостьБлок-схема - в прилагаемом файле.
Программа:
var n,i:integer; p:real;
begin
write('n = '); readln(n);
p:=1;
for i:=1 to n do p:=p*i;
writeln('p = ',p);
end.
Пример:
n = 10
p = 3628800
ГостьПрограмма:
var
i,n:integer;
p:biginteger;
begin
p := 1;
readln(n);
for i := 1 to n do
p := p * i;
writeln(p);
end.
Блок-схема во вложении
Не нашли ответ?
Похожие вопросы