1)?
2)клавиатура (скорей всего)
3)процессор
4)?
5)жёсткий диск или винчестер
6)мышь
7)диск
8)винчестер
9)принтер
Var i: integer;
begin
for i:=1 to 9 do
writeln('7 * ', i, ' = ', 7 * i)
<span>end.</span>
1.
89=1011001
600=1001011000
2010=11111011010
2.
513=1000000001(в 2)=1001
600=1130
2010=3732
Program n;
var
m: array[1..10] of integer;
i,k: integer;
begin
writeln('Введите массив');
k:=0;
for i:=1 to 10 do begin
readln(m[i]);
if m[i]>0 then k:=k+1;
end;
writeln(k);
<span>end.
<em>Если я помогла,то отметь мой ответ лучшим,пожалуйста</em></span>