var s: string; i: longint; begin readln(s); for i: =length(s) downto 1 do begin if s[i]=' ' then delete(s,i,1); if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1); end; writeln(length(s)); end.
Ответ дал: Гость
21 24 27 30 33 36 39 42 45 48
Ответ дал: Гость
program ; var n : integer; begin for n: = 10 to 99 do if n mod 13 = 0 then writeln(n); readln; end.
Ответ дал: Гость
8=1000(2)=8(8)=8(16)
20=10100(2)=24(8)=14(16)
33=100001(2)=41(8)=21(16)
56=111000(2)=70(8)=38(16)
115=1110011(2)=163(8)=73(16)
246=11110110(2)=366(8)=f6(16)
522=1000001010(2)=1012(8)=20a(16)
1133=10001101101(2)=2155(8)=46d(16)
2166=100001110110(2)=4166(8)=876(16)
а вообще, можно использовать инженерный режим калькулятора windows для перевода в эти системы
Популярные вопросы