Ответ:
Нет
Без драйверов невозможно обойтись
Объяснение:
Так как драйвера это как ключ зажигания каков нибудь предмета например: мышь,клавиатура,колонки.
Обычно при установки виндос драйвера стартовые уже установлены
<span><u>Задача а)</u>
</span>// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
a,b:real;
procedure WriteAvg;
begin
Writeln('Среднее= ',(a+b)/2)
end;
begin
Write('a,b='); Read(a,b);
WriteAvg
end.
<u>Тестовое решение:</u>
a,b=6 4.9
Среднее= 5.45
<u>Задача б)</u>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var c:=ReadlnChar('Введите символ:');
if c in ['A'..'z','А'..'я','Ё','ё'] then Writeln('буква')
else
if c in ['0'..'9'] then Writeln('цифра')
else Writeln('спецзнак')
end.
<u>Тестовое решение:</u>
Введите символ: i
буква
В четырехцветном изображении для хранения одной точки требуется log(2)4 = 2 бита; в изображении с 16-цветной палитрой - log(2)16 = 4 бита. В том же объеме памяти в этом случае можно сохранить изображение, содержащее в 2 раза меньше точек, т.е. 300*200 / 2 = 30000. Если не изменять пропорции, то размер изображения ≈ 212*141
Var ar:array[1..10] of integer;
k,i,m:integer;
begin;
randomize;
k:=1;writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,15);
if odd(i)=false then k:=k*ar[i];
write(ar[i]:4);
end;
writeln;
writeln('Result:',k);
if odd(k) then writeln('Yes') else writeln('No');
end.
<span>
//Мала вероятность того, что вернёт Yes, поэтому прикрутил Result
Вывод с 300-400 запуска:
Array:
9 15 8 15 5 3 0 15 3 9
Result:91125
Yes<span>
</span></span>