Предмет: Информатика, автор: Marizka

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.

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

Ответы

Автор ответа: dav4ever
0

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

Автор ответа: Tlalok
0

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.

Похожие вопросы
Предмет: География, автор: Аноним