• С клавиатуры вводятся положительные числа до тех пор пока не будет введено отрицательное число. Составить программу, выводящую это число на экран.

Ответы 1

  • var a:integer;

    begin

       read(a);

       while(a>0) do

          readln(a);

       wrileln(a)

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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