Возможно:
1.Графический процессор
2.Видеоконтроллер
3.Видеопамять
4.Цифро-аналоговый преобразователь
5.Видео-ПЗУ
6.Система охлаждения
Если в паскале, то примерно так
var //обязательное ключевое слово, за которым
//начинают объявлять переменные
i: integer; //i - это имя переменной integer - тип переменной
//мы сами выбираем имя и какой тип переменная будет иметь
//в дальнейшем коде, мы сможем с ними работать
А что соединить? Ничего нет!
1) var A, B: array[1..25] of integer;
i, x: integer;
begin
writeln('введите элементы массива A: ');
for i := 1 to 25 do begin
read(A[i]);
if A[i] mod 3 = 0 then
begin
x := x + 1;
B[x] := A[i];
end;
end;
write('элементы массива A, кратные трём: ');
for i := 1 to x do begin
write(B[i], ' ');
end;
end.
2) var A, B, C: array[1..10000] of integer;
i, n, x: integer;
begin
writeln('введите размеры обоих массивов: ');
read(n);
write('введите элементы массива A: ');
for i := 1 to n do begin
x := x + 1;
read(A[i]);
end;
write('введите элементы массива B: ');
for i := 1 to n do begin
read(B[i]);
end;
write('элементы массива C: ');
for i := 1 to x do begin
C[i] := A[i];
write(C[i], ' ');
C[i] := B[i];
write(C[i], ' ');
end;
end.
Var n,m,q,i:integer;f:boolean;
begin
read(m,n);
f:=true;
while f=true do begin
f:=false;
if m>n then q:=n else q:=m;
for i:=2 to q do begin
if (m mod i = 0) and (n mod i = 0) then begin m:=m div i;n:=n div i;f:=true;end;
end;
end;
writeln(m,'/',n);
end.
По идее так, не проверял.
