Посмотрите так же как пишутся десятичные цифры 7, 9, 49, 290, 449, 106, 682, 890, 319, 4081, 8002, 58854, 41006, 146286, 431900 в различных системах счисления.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var a:=ArrRandom(ReadInteger('n='),1,99); a.Println; var k:=ReadInteger('k='); Writeln('Сумма чисел, кратных ',k,': ', a.Where(x->x mod k=0).Sum) end.
ответ:Шестнадцатеричная система - 24.
Двоичная система - 100100.
Посмотрите так же как пишутся десятичные цифры 7, 9, 49, 290, 449, 106, 682, 890, 319, 4081, 8002, 58854, 41006, 146286, 431900 в различных системах счисления.
Число 36 в других системах счисления:
2 - 100100, 3 - 1100, 4 - 210, 5 - 121, 6 - 100, 7 - 51, 8 - 44, 9 - 40, 10 - 36, 11 - 33, 12 - 30, 13 - 2a, 14 - 28, 15 - 26, 16 - 24, 17 - 22, 18 - 20, 19 - 1h, 20 - 1g, 21 - 1f, 22 - 1e, 23 - 1d, 24 - 1c, 25 - 1b, 26 - 1a, 27 - 19, 28 - 18, 29 - 17, 30 - 16, 31 - 15, 32 - 14.
Объяснение:
Вот правильно
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
var k:=ReadInteger('k=');
Writeln('Сумма чисел, кратных ',k,': ',
a.Where(x->x mod k=0).Sum)
end.
Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,20);
a.Println;
a.Where((x,i)->x=i+1).Println
end.
Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16