Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите сделать программу на Pascal

Ответ оставил Гость

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.