Ввести число X. Если X amp;gt; 0, то вывести на печать

Ввести число X. Если X gt; 0, то вывести на печать сообщение "число не отрицательное". Для отрицательного числа ввод числа повторить. (ПАСКАЛЬ).С Изъяснением

Задать свой вопрос
1 ответ
Var x:integer;beginreadln (x);if (xgt;0) then writeln ('число не отрицательное');end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт