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

Составить программу в PascalABC с применением цикла 50 БАЛЛОВ !!!!​

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

    program abc;

    var n,x: integer;

    s: real;

    begin

    s:=0;

    x:=1;

    readln(n);

    while x<=n do

    begin

    s:=S+(exp(2*ln(sin(x)))+cos(sqrt(x)));

    x:=x+1;

    end;

    writeln(s);

    end.

    1. Ответ
      Ответ дан zaithevalex
      и где 50 баллов?
    2. Ответ
      Ответ дан mikhailsivo2016
      разве не пришли ?
Самые новые вопросы