1. современное решение // pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin readlnstring('> ').tochararray.select((c,i)-> i.isodd? 2*c: 1*c).println('') end. пример > слово слловво 2. "школьное" решение var s,s1: string; i: integer; begin write('> '); readln(s); s1: =''; for i: =1 to length(s) do if i mod 2< > 0 then s1: =s1+s[i] else s1: =s1+s[i]+s[i]; writeln(s1) end.
etv771370
29.01.2023
c1 +ca 18b₁₆ = 1 1000 1011₂ = 110 001 011₂ = 613₈ как все это получается? сначала складываем в столбик шестнадцатиричные числа. для этого нужно помнить, что а₁₆=10, b₁₆=11, c₁₆=12, d₁₆=13, e₁₆=14, f₁₆=15. a₁₆+1 = b₁₆. тут все понятно, после а₁₆ идет в₁₆. с₁₆+с₁₆ = 12₁₀+12₁₀=24₁₀ и теперь надо снова вернуться к шестнадцатиричному числу. 24 - это 16+8, 16₁₀=10₁₆, поэтому 24₁₀=10₁₆+8₁₆ = 18₁₆. получаем ответ 18b₁₆ теперь переводим его в двоичную систему, для чего каждую цифру заменяем четырьмя двоичными (16=2⁴). а 8=2³, поэтому теперь справа налево разбиваем число на группы по 3 двоичных разряда и заменяем каждую группу восьмеричной цифрой.
дискета 80-800 кб
жесткий диск 128 гб- 4 тб
cd 650 - 800 мб
dvd 4.7 - 16 гб
карта памяти 28 мб - 32 гб
usb 64 мб - 64 гб