Предмет: Информатика,
автор: 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.
Найдите ошибку, пожалуйста, программа не идет.
Ответы
Автор ответа:
0
Необходимо поставить ещё один end. Ты цикл не закрыла.
Автор ответа:
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.
Похожие вопросы
Предмет: Английский язык,
автор: aidanabereket51
Предмет: География,
автор: Аноним
Предмет: Математика,
автор: fifaanastasia5
Предмет: Алгебра,
автор: RSMan
Предмет: Математика,
автор: Леночкаа