profile
Опубликовано 6 лет назад по предмету Информатика от Rozdestvo

Даны натуральное n, действительное x. Вычислить: (вложено изображение) На языке Pascal.

  1. Ответ
    Ответ дан roperd

    Программа на языке Pascal представлена ниже.
    Program Vichysleniya;
    Uses
    Crt;
    Var
    n: 1..100; {Здесь задаётися интервал для натурального n, можете взять больше ста, это уж как угодно вам}
    X, S: real;
    i: byte;
    begin
    ClrScr;
    WriteLn('Введите n:');
    ReadLn(n);
    WriteLn('Введите x:');
    ReadLn(x);
    S := Sin(x);
    for i := 1 to n do
    S := S + Sin(S);
    WriteLn('Ответ:'#10#13, S : 3: 2);
    ReadKey;
    end.

Самые новые вопросы