Консультация № 138494
29.05.2008, 15:21
0.00 руб.
0 1 1
для делимости числа на 3 требуется,чтобы сумма цифр числа делилась на 3.написать функцию проверки делимости числа n, вводимого с клавиатуры, на 3.

Обсуждение

давно
Профессор
401888
1232
30.05.2008, 08:52
общий
это ответ
Здравствуйте, Пухов Никита Евгеньевич!
Решение задачи в приложении.

Приложение:
uses crt;function Del_3(n:longint):boolean;var u:longint; sum:byte;beginDel_3:=true;sum:=0;while n>0 do {разбиваем число на цифры, начиная с последней} begin u:=n mod 10; sum:=sum+u; {складываем их} n:=n div 10; end;if sum mod 3<>0 then Del_3:=false;end;var x:longint;beginclrscr;write(‘x=‘);;readln(x);if Del_3(x) then writeln(‘Cislo ‘,x,‘ delitsa na 3!‘)else writeln(‘Cislo ‘,x,‘ ne delitsa na 3!‘);readlnend.
Форма ответа