Информатика, опубликовано 2018-08-22 20:05:17 by Гость

program mar; uses crt; var F,k:integer; S:real; begin clrscr; F:=1; S:=1; for k:=1 to 3 do begin F:=Fk; S:=S(2F)/(kkkk+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 ); 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:=Fk; S:=S(2F)/(kkkk+k); writeln(k = ,k ); readkey; end. Найдите ошибку, пожалуйста, программа не идет.