Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1)деловая бумага; 2)подтверждает факт или право
(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s: =0;
writeln ('введите число');
while a< > 0 do
a: = a mod 10
s: =s+a;
end;
if s mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
Популярные вопросы