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. Ты цикл не закрыла.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
