Паскаль 7 класс!!! Безотлагательно !!!В семизначном числе отыскать и вывести все

Паскаль 7 класс!!! Безотлагательно !!!
В семизначном числе найти и вывести все цифры меньше 5

Задать свой вопрос
1 ответ

Var x:Integer ;

Begin

Writeln('x=') ;read(x) ;

While xgt;0 do begin

If x mod 10lt;5 then write(' ', x mod 10);

X :=x div 10;end;

End.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт