Важно для делимости числа на 3 требуется, чтобы сумма цифр числа делилась на 3. написать функцию проверки делимости n чисел, вводимых с клавиатуры, на 3. паскаль.рекурсия
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.
Электронные таблицы - это работающее в диалоговом режиме приложение, хранящее и обрабатывающее данные в прямоугольных таблицах. Электронные таблицы позволяют обрабатывать большие массивы числовых данных. В отличие от таблиц на бумаге электронные таблицы обеспечивают проведение динамических вычислений, т. е. пересчет по формулам при введении новых чисел. В математике с электронных таблиц можно представить функцию в числовой форме и построить ее график, в физике - обработать результаты лабораторной работы, в географии или истории - представить статистические данные в форме диаграммы. При работе с электронными таблицами можно вводить и изменять данные одновременно на нескольких рабочих листах, а также выполнять вычисления на основе данных из нескольких листов.
ох уж не знаю, права я или нет :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.