Question

program mar;

uses crt;

var F,k:integer;

S:real;

begin

clrscr;

F:=1;

S:=1;

for k:=1 to 3 do

begin

F:=F*k;

S:=S*(2*F)/(k*k*k*k+k);

writeln('k = ',k );

readkey;

end.

Найдите ошибку, пожалуйста, программа не идет.

Answer 1

Необходимо поставить ещё один end. Ты цикл не закрыла.

Answer 2

program mar;

uses crt;

var F,k:integer;

S:real;

begin

clrscr;

F:=1;

S:=1;

for k:=1 to 3 do

begin

F:=F*k;

S:=S*(2*F)/(k*k*k*k+k);

writeln('k = ',k );
end; // тебе хватало этого энда

readkey;

end.