Важно для делимости числа на 3 требуется, чтобы сумма цифр числа делилась на 3. написать функцию проверки делимости n чисел, вводимых с клавиатуры, на 3. паскаль.рекурсия

249

371

Посмотреть ответы 2

Ответы на вопрос:

Beliya1

Информатика

4,4(15 оценок)

ох уж не знаю, права я или нет : d

но вот я бы сделала

beginreadln(a); {тут мы вводим число, которое будем проверять: делится оно на три или нет}s : = 0; {это у нас будет сумма цифр числа }while a< > 0 dobeginb : = a mod 10; {выделяем последнюю цифру}s : = s + b; {находим сумму}a : = a div 10 {переходим к следующей цифре}end; if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}writeln('число делится на три')elsewriteln('число не делится на три')end.