Ответ(ы) на вопрос:
Гостьprogram pr1;
var s, i, j, N;
begin
readln(N);
s:=0;
for i:=1 to N do begin
for j:=1 to i do
s:=s*j; //честно говоря, задание некорректно, так как под знаком произведения ничего нет. Если имеется ввиду перемножение числа само на себя заменить j на s.
s:=s+s
end;
writeln('The sum is ', s)
end.
Не нашли ответ?
Похожие вопросы