write(number mod 10,number div 10 mod 10, number div 100 mod 10); Пример программы:
program test; uses crt, classes;
var number:integer; begin number:=123; write(number mod 10,number div 10 mod 10, number div 100 mod 10); delay(1000); //чтобы окно ещё на 1 секунду осталось, функция из модуля crt end.
Для Pascal ABC.NET:
program test;
var number:integer; begin number:=123; write(number mod 10,number div 10 mod 10, number div 100 mod 10); sleep(1000); //чтобы окно ещё на 1 секунду осталось end.
Вывод: 321
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку