// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var age:=ReadInteger('Введите возраст:'); var gender:=ReadInteger('Введите пол (1-М, 2-Ж):'); if gender=1 then case age of 0..13:Writeln('Мальчик'); 14..20:Writeln('Юноша'); 21..70:Writeln('Мужчина'); else Writeln('Старец') end else case age of 0..13:Writeln('Девочка'); 14..20:Writeln('Девушка'); 21..70:Writeln('Женщина'); else Writeln('Старушка') end end.
// Внимание! Если программа не работает, обновите версию!
begin
var age:=ReadInteger('Введите возраст:');
var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
if gender=1 then
case age of
0..13:Writeln('Мальчик');
14..20:Writeln('Юноша');
21..70:Writeln('Мужчина');
else Writeln('Старец')
end
else
case age of
0..13:Writeln('Девочка');
14..20:Writeln('Девушка');
21..70:Writeln('Женщина');
else Writeln('Старушка')
end
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₁₀