program raf105;
var i,sum,pro,a:integer;
begin
writeln('Вводите 5 чисел по очереди');
pro:= 1;
for i:=1 to 5 do
begin
readln(a);
if (a>=100) and (a<=999) and ((a mod 3)=0)
then
begin
sum+= a;
pro*= a;
end;
end;
writeln('Сумма трёхзначных чисел кратных трём: ',sum);
writeln('Произведение трёхзначных чисел кратных трём: ',pro);
end.
<em><u>Язык PascalABC</u></em>
Program Task;
Uses GraphABC;
Const b = 4; r = 20 ;
d: Array [1..4, 1..2] of Integer = ((1, 0), (0, 1), (-1, 0), (0, -1));
xs: Array [1..b] of Integer = (r + r Div 2, WindowWidth - (r + r Div 2), WindowWidth - (r + r Div 2), r + r Div 2);
ys: Array [1..b] of Integer = (r + r Div 2, r + r Div 2, WindowHeight - (r + r Div 2), WindowHeight - (r + r Div 2));
Var x, y, dir: Array [1..b] of Integer;
i, j: Integer;
Begin
LockDrawing;
For i := 1 To b Do
Begin
x[i] := xs[i];
y[i] := ys[i];
dir[i] := i;
End;
While True Do
Begin
Window.Clear;
For i := 1 To b Do
Circle(x[i], y[i], r);
For i := 1 To b Do
Begin
x[i] := x[i] + d[dir[i], 1];
y[i] := y[i] + d[dir[i], 2];
End;
For i := 1 To b Do
For j := 1 To b Do
If (x[i] = xs[j]) And (y[i] = ys[j]) Then
If dir[i] < b Then
dir[i] := dir[i] + 1
Else
dir[i] := 1;
Redraw;
End;
<span>End.</span>
Перевод из 10-ой с/с в 2-ую
1)-73₁₀ = -1001001₂
2)-11₁₀ = -1011₂
3)-97₁₀ = 1100001₂
4) 43₀ = 101011₂
5) 83₁₀ = 1010011₂
6) 15₁₀<span> = 1111</span>₂
Драйвер является компьютерной программой, которая позволяет компьютерным программа более высокого уровня взаимодействовать с аппаратным устройством.
Драйвер обычно связывается с устройством через шины компьютера или сообщения подсистемы. Когда вызывающая программа вызывает драйвер, то он выдает команды на устройство. Как только устройство отправляет данные на драйвер, он может использовать процессы в запускаемой программе. Драйвера зависят от оборудования и операционной системы, а также от конкретных условий. Как правило, они обеспечивают прерывание обработки, необходимое для любого зависящего от времени аппаратного интерфейса.
Драйвер устройства упрощаетпрограммирование, выступая в роли переводчика между устройством оборудования и приложением операционных систем , которые используют его. Программисты могут создавать на более высоком уровне коды приложения, независимо от аппаратного устройства.
Некоторые драйвера устройств устанавливаются с установкой операционной системы, но в основном все комплектующие комплектуются диском с драйверами сразу под несколько операционных систем, особенно драйвера внешнего устройства.
