Question

СРОЧНО!!! Создать программу на Паскаль , определяющую все цифры четырехзначного числа.

Answer 1

var

 n:integer;

begin

 read(n);

 write( n div 1000 mod 10 ,' ', n div 100 mod 10, ' ', n div 10 mod 10 , ' ', n mod 10);

end.