Решить контрольную
1. среди ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. в ответе запишите только число, основание системы счисления указывать не нужно.
2316, 328, 02
ответ:
введите число
2. среди ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. в ответе запишите только число, основание системы счисления указывать не нужно.
2a16, 448, 1001112
ответ:
введите число
3. среди ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. в ответе запишите только число, основание системы счисления указывать не нужно.
2d16, 578, 1010102
ответ:
введите число
4. среди ниже трёх чисел, записанных в различных системах счисления, найдите минимальное и запишите его в ответе в десятичной системе счисления. в ответе запишите только число, основание системы счисления указывать не нужно.
2616, 518, 1011002
ответ:
введите число
5. (а. кабанов) среди ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. в ответе запишите только число, основание системы счисления указывать не нужно.
2016, 338, 111012
ответ:
введите число
6. (а. кабанов) среди ниже трёх чисел, записанных в различных системах счисления, найдите минимальное и запишите его в ответе в десятичной системе счисления. в ответе запишите только число, основание системы счисления указывать не нужно.
101012, 228, 1716
ответ:
введите число
7. (а. кабанов) найдите значение выражения
10100112 + 3228 - a116
ответ запишите в десятичной системе счисления.
ответ:
введите число
8. (а. кабанов) сколько натуральных чисел расположено в интервале
408 ≤ x ≤ e616
.
ответ:
введите число
9. (а. кабанов) сколько натуральных чисел расположено в интервале
348 ≤ x ≤ ba16
.
ответ:
введите число
10. (а. кабанов) сколько натуральных чисел расположено в интервале
758 ≤ x ≤ ae16
.
begin
var count := 0;
var a := Range(ReadInteger('a='), ReadInteger('b='))
.Select(t -> t.ToString.JoinIntoString(' ').ToIntegers)
.Where(t -> t.Count.IsEven);
foreach var x in a do
begin
var (b, i) := (true, 0);
while (b) and (i < x.Length - 1) do
begin
if (x[i].IsOdd and x[i + 1].IsOdd) or (x[i].IsEven and x[i + 1].IsEven)
then b := false;
inc(i, 2);
end;
if (i = x.Length) and (b) then inc(count);
end;
count.Println;
end.