Спо информатике! запишите натуральный ряд чисел: а) в восьмеричной системе счисления; б) в двоичной системе счисления. например, для десятичной системы счисления вид натурального ряда чисел выглядит так: 1 2 3 4 5 6 7 8 9 10 11 19 20 99 100 101
ЕСЛИ с1 > с2 ТО ЕСЛИ с3 > с1 ТО Вывод.Цепь("^Третий.") АЕСЛИ с1 > с3 ТО Вывод.Цепь("^Первый.") ИНАЧЕ Вывод.Цепь("^Первый и третий.") АЕСЛИ с2 > с1 ТО ЕСЛИ с3 > с2 ТО Вывод.Цепь("^Третий.") АЕСЛИ с2 > с3 ТО Вывод.Цепь("^Второй.") ИНАЧЕ Вывод.Цепь("^Второй и третий.") ИНАЧЕ ЕСЛИ с3 > с1 ТО Вывод.Цепь("^Третий.") АЕСЛИ с3 < с1 ТО Вывод.Цепь("^Первый и второй.") ИНАЧЕ Вывод.Цепь("^Ничья.") КОН
Var DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin:integer; begin readln(DepHour,DepMin,DurHour,DurMin); if DepMin+DurMin>=60 then begin ArrHour:=DepHour+DurHour+1; ArrMin:=DepMin+DurMin-60; end else begin ArrHour:=DepHour+DurHour; ArrMin:=DepMin+DurMin; end; write(ArrHour,':',ArrMin); end.
1) восьмеричная:
1 2 3 4 5 6 7 10 11 12 13 14 15 16 17 20 21 22 23 24 25 . . . 142 143 144
2) двоичная:
1 10 11 100 101 110 111 1000 1001 1010 1011 1100 1101 1110 1111 . . . 1100010 1100011 1100100