Если считать в данном случае целые числа, то всего их получается 21 штука (ноль мы тоже считаем)
Чтобы найти вероятность, нужно число тех событий, вероятность которых нудно найти разделить на число всех возможных событий, итак, думаем:
Числа, квадрат, которых меньше десяти, это: -3, -2, -1, 0, 1, 2, 3. Получилось 7 чисел. Теперь решаем: 7/21=~0,33
Ответ: 0,33
Begin
var ar := readarrinteger(readinteger('Введите n:'));
var k := readinteger('Введите k:');
ar.Where(x -> x mod k = 0).print;
end.
Пример
44(10) переведём в двоичную систему
44 делим на 2. частное 22, остаток 0
22 делим на 2. частное 11, остаток 0
11 делим на 2. частное 5, остаток 1
5 делим на 2. частное 2, остаток 1
2 делим на 2. частное 1, остаток 0
1 делим на 2. частное 0, остаток 1
Частное равно нулю, деление закончено. Теперь записав все остатки снизу вверх получим число 101100(2)
Var
i,x:integer;
sr:real;
begin
sr:=0;
for i:=1 to 4 do
begin
write('Оценка за задачу №',i,' ');
readln(x);
sr:=sr+x;
end;
sr:=sr/4;
write('Средняя оценка ',Round(sr));
End.<span>
</span>