Определи результат работы процедуры, применённой к слову «интернет». ПРОЦ перестановка НАЧАЛО ПОКА i <3 1 ДЕЛАТЬ $Буква 3D$Tекст [1 $Tекст [1] %3D $Tекст [1+1] $Tекст [іi+1] - $Tекст [1i+2] $Tекст [1+2] - $Tекст [1+3] $Tекст [i+3] 3 $Буква КОНЕЦ КОНЕЦ
program hungry;
var
time: real;
begin
write('Который час? ');
readln(time);
if (time < 0) or (time >= 24) or (frac(time) >= 0.6) then
writeln('У кого-то часы барахлят...')
else if (time >= 7) and (time < 13) or (time >= 15) and (time < 19) then
writeln('Отлично, булочная работает!')
else if (time >= 8) and (time < 14) or (time >= 16) and (time < 20) then
writeln('Можно до хлебного магазина дойти.')
else if (time >= 8) and (time < 24) then
writeln('Голод не тетка, придется в супермаркет ехать...')
else
writeln('Извини, друг, но сегодня хлеба не будет, сиди дома!');
end.
Объяснение:
1) 81/2=40 (остаток 1)
40/2=20 (0)
20/2=10 (0)
10/2=5 (0)
5/2=2 (1)
2/2=1 (0)
1/2=0 (1)
81₁₀=1010001₂
2) 653/2=326 (1)
326/2=163 (0)
163/2=81 (1)
81/2=40 (1)
40/2=20 (0)
20/2=10 (0)
10/2=5 (0)
5/2=2 (1)
2/2=1 (0)
1/2=0 (1)
653₁₀=1010001101₂
3) 1001010₂=1·2⁶+0·2⁵+0·2⁴+1·2³+0·2²+1·2¹+0·2⁰=64+8+2=74₁₀
4) 1001000101₂=1·2⁹+0·2⁸+0·2⁷+1·2⁶+0·2⁵+0·2⁴+0·2³+1·2²+0·2¹+1·2⁰=512+64+4+1=581₁₀
1) 44/8=5 (4)
5/8=0 (5)
44₁₀=54₈
2) 804/8=100 (4)
100/8=12 (4)
12/8=1 (4)
1/8=0 (1)
804₁₀=1444₈
3) 17₈=1·8¹+7·8⁰=8+7=15₁₀
4) 1432₈=1·8³+4·8²+3·8¹+2·8⁰=512+256+24+2=794₁₀
1) 91/16=5 (11=B)
5/16=0 (5)
91₁₀=5B₁₆
2) 946/16=59 (2)
59/16=3 (11=B)
3/16=0 (3)
946₁₀=3B2₁₆
3) 21₁₆=2·16¹+1·16⁰=32+1=33₁₆
4) 34F₁₆=3·16²+4·16¹+15·16⁰=768+64+15=847₁₀