При безошибочной игре выигрывает первый игрок. Своим первым ходом он должен взять один камень. В куче останется пять камней. Какой бы ход ни сделал второй игрок, в куче останется 4, 3 или 2 камня. Это позволяет первому игроку своим вторым ходом оставить в куче ровно один камень, его и должен будет забрать своим вторым ходом второй игрок
1. 1) 1000111_2+1001101_2=10010100_2
2)10010100_2-10011_2=10000001_2
2.1) 111_2*101_2=100011_2
2)100011_2-111_2=11100_2
3)11100_2/10_2= 1110_2
Можно попробовать через оператор выбора case (условие со многими выходами) если только такой оператор есть в турбо. в обычном паскале есть.
Например:
writeln(‘Введите цифру ‘);
readln(a);
case a of
0 : writeln (‘ноль‘);
1 : writeln (‘один‘);
2 : writeln (‘два‘);
3 : writeln (‘три‘);
4 : writeln (‘четыре‘);
5 : writeln (‘пять‘);
6 : writeln (‘шесть‘);
7 : writeln (‘семь‘);
8 : writeln (‘восемь‘);
<span> 9 : writeln (‘девять‘);
</span>
Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
За 1 час стрелка поворачивается на 360/12 = 30 градусов.
Если она повернулась на бета градусов, то прошло бета/30 часов.
Показание часовой стрелки понятно, показание минутной рассчитывается.
Каждый час = 60 минут минутная стрелка поворачивается на 360 градусов,
То есть время равно int(beta/30) часов и (beta mod 30)*60 минут.
Здесь int - это "целая часть числа", mod - "остаток от деления".