• Опратор while... do...
    Помогите с практической работой.

    question img

Ответы 1

  • A:Var i,s:integer;Begin    i:=20;s:=0;    While i<=99 do    Begin      s:=s+i;      i:=i+1;    End;    writeln('Сумма',s);   readln;End.B:Var    i: integer;    x: real;begin    x := 0;    i := 0;    while i < 10 do    begin        inc(i);        x := x + 1/i;    end;    writeln(x);end.C я не знаю как
  • Добавить свой ответ

Войти через Google

или

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

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

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