Помогите составить программу, которая по сумме цифр определит делится ли число ** 3.....

Question

Помогите составить программу, которая по сумме цифр определит делится ли число на 3.....

Comments

Для того чтобы число делилось на 3, необходимо и достаточно, чтобысумма его цифр делилась на 3.

Answer 1

Function Div3(n:longint):boolean;
var s:byte;
begin
s:=0;
while n>0 do 
begin 
s:=s+n mod 10; 
n:=n div 10; 
end;
if s mod 3=0 then Div3:=true
else Div3:=false;
end;

var a:longint;
begin
write('Введите a: ');
readln(a);
if Div3(a) then write('Число делится на 3')
else write('Число не делится на 3');
end.

Comments

А это на паскале

---

да

---

Это не по сумме цифр

---

а это строчка что по твоему делает

---

s:=s+n mod 10;

---

считает сумму

---

А, тогда да