if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
readln;
end.
Ответ дал: Гость
101=1*8^0+0*8^1+1*8^2=1*1+0+64=(65) в десятичной
1в=в*16^0+1*16^1=12*1+1*16=12+16=28 в десятичной
65-28=37
38 в десятичной , но такого ответа нет, значит надо перевести 37 в двоичную систему. для этого 38 делим на 2 пока делится
38/2=19 остаток0
19/2=9 остаток 1, уже видно что двоичный второй ответ не подходит, там нет нуля.
попробуем переведем в восьмеричную, для этого делим 38 на 8.
38/8=4 остаток 6, получается 46 в 8 сс. ответ 4
Ответ дал: Гость
program chislo;
var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.
Популярные вопросы