Задать вопрос Регистрация
Помочь другим

  • Записать задачу на паскале)
    Оочень срочно!!!:)

    question img

Ответы 1

  • var    i, j, m: integer;    S, P: real;begin    i := 1;    while((i <= (i + 3) * (i + 3)) and (i <= 100)) do     begin        P := 1;        for j := -5 to 15 do         begin            P := P * sin(i / sqrt(i * i + j * j));        end;        S := S + P;        writeln(i:5, ' - ', S:10:3);        i := i + 1;    end;end.

     

    вообще получается бесконечный цикл, потому пришлось ввести второе условие

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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