Перевод из Pascal в C++

program Project1;
const n=8;
var
a:array [1..n] of integer;
i,j,sum5,sumn:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(25)+1;
write(a[i]:3);
end;

sum5:=0; sumn:=0;
for i:=1 to n do begin
if a[i] mod 5 = 0 then inc(sum5);
if a[i]>i then inc(sumn);
end;
writeln;
writeln('количество элементов кратных 5 равно ',sum5);
writeln('количество элементов больше своего номера равно ',sumn);
end.

1) ACI, PCY, SCCU, SATA. Каждая шина отвечает за свои устройства, поэтому их так много.

2) Характеристика шины: разрядность потока шины от 32 до 64, скорость передачи данных от 550 мб до 2 ГБ, температура от 20 до 30 градусов.

3) Жёсткий диск(ACI), клавиатура(USB), колонки(PCI), мышь(USB).

4) Их всего 4 вида: SATA, ATA-E, MicroUSB, FSI.

5) На сегодняшний день существует два современных интерфейса, это SQL и SATA. Они используются оба, потому что для каждого интерфейса нужны свои системные шины, к которым соответственно, подключаются контроллеры.

Поиск простых делителей числа:

var i,j,n:longint;
    f:boolean;
begin
 writeln('Введите число');
 readln(n);
  if n<2 then writeln('Простых делителей нет')
  else
   begin
    write('Число ',n,' ','= 1');
    for i:=2 to n do
     if n mod i=0 then
      begin
       f:=true;
       j:=2;
       while f and(j<=round(sqrt(i/2)))do
        begin
         if i mod j=0 then f:=false
         else j:=j+1;
        end;
      if f then write('*',i);
     end;
   end;
end.

Тестовое решение:

Введите число
2345
Число 2345 = 1*5*7*35*67