Написать программу в которой задано целое число n и выводится любая

Написать программку в которой задано целое число n и выводится любая его цифра в столбец. На ABC.Pascal

Задать свой вопрос
1 ответ
Var n,k:integer;
begin
write('n='); readln(n);
while nlt;gt;0 do
 begin
 writeln(n mod 10);
 n:=n div 10;
 end;
end.

Пример:
n=12756
6
5
7
2
1

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


Последние вопросы

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

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

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

Войти на сайт