ПЕРЕПИСАТЬ КОД С ЯЗЫКА PASCAL в C++ 1:
var k,n,i,sum:integer;
s,t:string;
begin
s := '';
sum:=0;
write('Введите количество пассажиров: '); readln(n);
for i:=1 to n do begin
k:=random(-140)+150;
str(k,t);
s:=s+t+' ';
sum:=sum+k;
end;
if (sum>=20) and (sum<=750) then write('OK : ',s)
else if sum < 20 then write('Недогруз: ',s)
else write('Перегруз: ',s);
end.
2.
var k,n,i,sum:integer;
begin
i:=1;
sum:=0;
write('Введите количество чисел: '); readln(n);
while i <= n do begin
write('Введите ',i,'-е число: '); readln(k);
if k > 1000 then writeln('Число не должно превышать 1000!')
else begin
if (k div 10 <> 0) and (k div 100 = 0) then begin
sum:=sum + (k div 10);
end;
inc(i);
end;
end;
write(sum);
end.
3.
var k,n:integer;
begin
write('Введите количество метров: '); readln(k);
write('Введите количество недель: '); readln(n);
write(((n*7) div 5) * 50 + k);
end.

Объяснение:

using System;

class Program

{

   static int P(string p)

   {

       int a = 0, dec = 1;

       for (int i = p.Length - 1; i >= 0; i--)

       {

           a += (p[i] - '0') * dec;

           dec *= 10;

       }

       return a;

   }

   static void Main(string[] args)

   {

       int minSum = 1000000000, maxSum = 0, itMin = 0, itMax = 0;

       for (int i = 0; i < 10; i++)

       {

           int nowSum = 0;

           string a = Console.ReadLine();

           string[] now = a.Split(' ');

           for (int j = 0; j < now.Length; j++)

           {

               int n = P(now[j]);

               nowSum += n;

           }

           if (minSum > nowSum)

           {

               itMin = i;

               minSum = nowSum;

           }

           if (maxSum < nowSum)

           {

               itMax = i;

               maxSum = nowSum;

           }

       }

       Console.WriteLine("{0} - строка с минимумом, {1} - строка с максимумом", itMin + 1, itMax + 1);

       Console.ReadLine();

   }

}

1)Монитор,(на счет магнитофона не уверен, сам по себе именно магнитофон никак не является устройством ПК, но если подразумевают пол этим словом динамик ПК, то подходит)

2)Получение

3)Электрический ток

4)Анатомический муляж

5)102 бита

6)48

7)из перечисленных ниже нет верного ответа. 568 в десятичной = 1 000 111 000 в двоичной.

8)АВИБА

9)Представленные ответы неправильны, так как не являются двоичным кодом(присутствуют двойки)+не указано к какой системе счисления принадлежит y (если x - очевидно 16-ти ричная, то y может быть как 16 так и 10

10) И снова нет верного ответа из предложенных, т.к. получится D8

11)800 бит

12) (Ячейки excel где?)

13) Аналогично 12

14)тоже

15)27

16)User-name

17)c*.c*

18)145.92.128.0

19)Верного ответа нет. Правильно: 22

20) 5

Объяснение: