Из данных чисел выберите все, в восьмеричной записи которых есть хотя бы одна цифра 4.

12 31 34 40 60 71 167
объясните 40

ответ:

34, 40,

объяснение:

100 кбайт = 100 * 8 = 800 кбит

800 : 1024 = 0,78125 мбит

0,78125 : 100 = 0,0078125 сек

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.