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. Найдите ошибку, пожалуйста, программа не идет.
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. Найдите ошибку, пожалуйста, программа не идет.
Гость
Ответ(ы) на вопрос:
ГостьНеобходимо поставить ещё один end. Ты цикл не закрыла.
Гость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.
Не нашли ответ?
Похожие вопросы