• Нормально? Нужно создать программу с логическим циклом.
    Program p_1;
    Uses crt;
    Var i:integer;
    Begin
    Clrscr;
    i:=1;
    While i>1000 do
    begin
    Write(i);
    i:=i+(sqr(2+3));
    end;
    readln;
    end.

Ответы 5

  • еще?
    • Автор:

      clinton
    • 6 лет назад
    • 0
  • Хватит) спасибо
    • Автор:

      amirwlos
    • 6 лет назад
    • 0
  • Спасибо) Уже не надо)
    • Автор:

      lexivwti
    • 6 лет назад
    • 0
  • program fgdg;varo,i: integer;begini:=0;o:=99;while o<1000 dobegino:=o+2;if o<1000 thenI:=i+o;end;writeln(i);end.
  • Все еще проще можно написать1.Program chislo;var i,s:Integer;begini:=100;while i<=999 do begin  if (i mod 2 <> 0) then s:=s+i;  Inc(i); end;Writeln(s);end.2. Число в обратном порядке (ввод с клавиатуры)Program sum_3;var n,s:Integer;begin Read(n); while(n>0) do  begin   s:=n mod 10;   n:=n div 10;   Write(s);  end;end.
    • Автор:

      phoenix
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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