Дано натуральное четырехзначное число. определить все цифры в цифровой записи данного числа, на которые оно делится без остатка. использовать только условный оператор "if", на языке паскаль.
T = n mod 10; if (n mod t = 0) then writeln(t); t = n div 10 mod 10; if (n mod t = 0) then writeln(t); t = n div 100 mod 10; if (n mod t = 0) then writeln(t); t = n div 1000 mod 10; if (n mod t = 0) then writeln(t);
t = n div 10 mod 10; if (n mod t = 0) then writeln(t);
t = n div 100 mod 10; if (n mod t = 0) then writeln(t);
t = n div 1000 mod 10; if (n mod t = 0) then writeln(t);