РЕБЯТА, ПОМОГИТЕ, ОЧЕНЬ ВАЖНО Для делимости числа на 3 требуется, чтобы сумма цифр числа делилась на 3. Написать функцию проверки делимости N чисел, вводимых с клавиатуры, на 3. Паскаль.Рекурсия 

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