Дано натуральное четырехзначное число. Определить все цифры в цифровой записи данного числа, на которые оно делится без остатка. Использовать только условный оператор "If", на языке Паскаль.

Question

Информатика

Веденя

24 апреля, 04:56

Дано натуральное четырехзначное число. Определить все цифры в цифровой записи данного числа, на которые оно делится без остатка. Использовать только условный оператор "If", на языке Паскаль.

+3

Ответы (1)

Знаете ответ на вопрос?

Акилина · Answer 1

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) ;