Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
4: 2
2|0
1|0
0|1
4₁₀=100₂
10: 2
5|0
2|1
10₁₀=1010₂
1996: 2
998|0
499|0
249|1
124|1
62|0
31|0
15|1
7|1
3|1
1|1
1996₁₀=11111001100
100.1010.11111001100
т.д.
(если сумма цифр числа делится на 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.
мало данных для главное - размер пробоины и размер листа
Популярные вопросы