var a:array[1..2,1..30] of integer;
i,j:integer;
Begin
   for i:= 1 to 30 do begin
       writeln('Введите номер ученика:');
       read(a[1,i]);
       writeln('Введите оценку:');
       read(a[2,i]);
   end;

   for i:= 1 to 10 do begin
      writeln(i:2,' - ');
       for j:= 1 to 30
          if a[1,j]=i then
               write(a[2,i],' ');
   end;
   readkey;
End.

0 0

4 года назад

Пожалуйста напишите протоколы сети

bangamin

Что надо сделать?! Не совсем понятно

0 0

4 года назад

Закодировать значение числа в двоичную систему а)число 117 б)число 217 в) число 317женя готовил доклад по литературе. в докладе

MaxMart [17]

1) а). 117₁₀=1110101₂
б).217₁₀=11011001₂
в).317₁₀=100111101₂
2).а). 12*22*7=1848 бит
б). 1848₁₀=11100111000₂

0 0

2 года назад

Вычислите:(1^1)^(1v0)

Olga Panfil

Ответ:

v - eto plus

^ - eto umnojeniye

(1^1)^(1v0)= 1 umnojit na 1 umnojit na 1 + 0 = 1

0 0

2 года назад

Прочитать ещё 2 ответа

Представьте число 63(10) в беззнаковом 8-разрядном формате!​

Представьте число 63(10) в беззнаковом 8-разрядном формате!