Предмет: Информатика,
автор: Ghost2281
Составить программу для решения задачи.Найти произведение ряда чисел 2,3,4,5,6,7.
Приложения:
![](https://files.topotvet.com/i/b68/b6878deb40ea9ee0ff7d27681e0e22ff.jpg)
Ответы
Автор ответа:
1
var i,s:integer;
begin
s:=1;
for i:=2 to 7 do
begin
s:=s*i;
writeln(s);
end;
end.
begin
s:=1;
for i:=2 to 7 do
begin
s:=s*i;
writeln(s);
end;
end.
Автор ответа:
2
var
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
Тестовое решение:
Произведение равно 5040
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
Тестовое решение:
Произведение равно 5040
Похожие вопросы
Предмет: Русский язык,
автор: bibok3
Предмет: Другие предметы,
автор: NatalyaCeluh
Предмет: Английский язык,
автор: должность
Предмет: ОБЖ,
автор: hjfjdkfifi
Предмет: История,
автор: Markus8265