Дано четырехзначное число. Вывести на экран каждую цифру отдельно(программа pascal)

Дано четырехзначное число. Вывести на экран каждую цифру отдельно (программа pascal)
Гость
Ответ(ы) на вопрос:
Гость
Var A:integer; Begin WriteLn('Введите четырёхзначное число'); ReadLn(A); WriteLn(A div 1000,' ',(A div 100) mod 10,' ',(A div 10) mod 10,' ',A mod 10); End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы