Реализция алгоритма на Pascal
[FONT="Times New Roman"]Поможіть :[SIZE="4"][COLOR="#ff0000"]Скільки цифр даного числа кратні N?Чи правильно, що в даному числі сума першої і останньої цифр дорівнює K?[/COLOR][/SIZE][/SIZE] :confused:[/FONT]
перевод:
Цитата:
Помогите: Сколько цифр данного числа кратные N?Правильно ли, что в данном числе сумма первой и последней цифр равняется K?
--------------
1) чтобы проверить на кратность надо смотреть - есть ли остаток при делении на него, например:
X mod N = 0
если остатка нет, значит кратно..
2)чтобы разбить число на цифры можно перевести число в строку и брать посимвольно цифры или пользоваться делением на 10
Цитата: (zom!k
2)чтобы разбить число на цифры можно перевести число в строку и брать посимвольно цифры или пользоваться делением на 10
В цикле while X <> 0 делаем цифра:=X mod 10; X:=X/10;
спасиба ребята))