Дано четырехзначное число. Определить делится ли это число на все свои цифры. Но как???
Подскажите пожалуйста)))
Или сначала надо запросить ввод всех чисел исходного числа?
Нет ли какого то индекса?
Создайте копию своего числа, затем используя остаток от деления на 10 получаете последнюю цифру и проверяете делится ли ваше число без остатка на неё. Копию делите на 10 и повторяете всё сначала. Если все поделились без остатка, ОК, иначе BAD. Рекомендую цикл while пока копия не станет равной нулю.
Удачи! ;)
P.S. Количество цифр в числе можно вычислить через функцию десятичного логарифм + 1. Аргумент функции привести к вещественному типу, а её результат вычисления к целому.
сначала определяете количество цифр в числе, переведя его в строку
str := inttostr(number);
len := strlen( str );
затем в цикле обходите каждое число и делите ваше число
for i=0 to i < len to
begin
q = strtoint( copy (str, i, 1) ) ;
if ( number mod q == 0 ) writeln ( ' DELITSA ');
end;
Берем число и считаем его length
Потом в цикле от 1 до length делим все число на
индекс числа
for k:=1 to length(chislo) do chislo:=chislo/chislo[k]
конвертирование и прочее думаю знаете
Только перебором.