• 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.

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

Ответы 2

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

    • Автор:

      khloe
    • 6 лет назад
    • 0
  • program mar;uses crt;var F,k:integer;S:real;beginclrscr;F:=1;S:=1;for k:=1 to 3 dobeginF:=F*k;S:=S*(2*F)/(k*k*k*k+k);writeln('k = ',k );end; // тебе хватало этого эндаreadkey;end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years