<u>Microsoft QBasic 1.0</u>
CONST n = 30
DIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
CLS
FOR i = 1 TO n
a(i) = 1000 * RND
PRINT a(i);
NEXT i
s = 0
FOR i = 1 TO n
IF a(i) MOD 15 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT s
Все же логично, просто разделим 900 на 150, получим 6.
6 бит
4^3=64=1000(в степени счисления 4)
1000+1=1001.
Ответ:Основание 4
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function sn(n:integer):integer; // сумма цифр числа
begin
n:=Abs(n);
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var (n,a,b):=ReadInteger3('Введите n,a,b через пробел:');
var m:=ArrRandom(n,a,b); m.Println;
var k:=ReadInteger('k=');
Writeln('Найдено чисел: ',m.Where(t->sn(t)=k).Count)
end.
<u>Пример</u>
Введите n,a,b через пробел: 15 -50 60
43 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19
k= 7
Найдено чисел: 2