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

вычислите сумму ряда 10, 100, 1000 ...т на языке паскаль, пожалуйста

  1. Ответ
    Ответ дан Gleb1Kosyrev
    var i,k,T,m:integer;
    begin;
    k:=0;
    m:=1;
    readln(T);
    if T<0 then exit;
    for i:=1 to T do
    begin;
    m:=m*10;
    k:=k+m;
    end;
    writeln(k);
    end.
    1. Ответ
      Ответ дан Аккаунт удален
      какие?
    2. Ответ
      Ответ дан Gleb1Kosyrev
      T должно быть >=0 . Уже написал в решении.
    3. Ответ
      Ответ дан Аккаунт удален
      а программа будет работать так как надо?
    4. Ответ
      Ответ дан Gleb1Kosyrev
      Нет, я сжёг свой стационарный ЭВМ, пытаясь это скомпилировать.
    5. Ответ
      Ответ дан Аккаунт удален
      не понял
Самые новые вопросы