• Почему не идет программа? в ответе нужны нечетные числа от 3 до 25
    program  chislo;

    var a,i:integer;

    begin
    i:=3;
    writeln(i);

    repeat 
    a:=i+2;
    until a <56;
    writeln(a);

    end.

Ответы 1

  • var   i: integer;begin  i := 3;  writeln(i);  repeat     i := i + 2;     writeln(i);  until i >= 25;end.цикл этот работает, пока условие ложно) Да и переменная a лишняя, пожалуй)
    • Автор:

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

Войти через Google

или

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

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

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