Решить информатику, ) 1.расположите данные значения в порядке возрастания: 1гб, 1кб, 78 мб, 1 мб, 3500 - id320932520220118 от лох251 18.01.2022 03:05

Question

Информатика: Решить информатику, ) 1.расположите данные значения в порядке возрастания: 1гб, 1кб, 78 мб, 1 мб, 3500 кб, 1 байт 2. имеется два жестких диска емкостью по 100 гб каждый и модуль оперативной памяти емкостью 512мб. укажите суммарную емкость данных запоминающих устройств в мб. 3.загадано число из промежутка от 10 до 74. какое количество информации необходимо для угадывания числа из этого промежутка? 4. в корзине лежат 5 зеленых и 12 красных кубиков. какое количество информации несут сообщения о том,

лох251 · Accepted Answer

Program Task;
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
marks_average: Array[1..pupils] of Real;
i, j: Integer;
all_marks_average: Real;
Begin For i := 1 To pupils Do
Begin
WriteLn('Введите через пробел оценки ученика №', i);
For j := 1 To subjects Do
Read(marks[i, j]);
End;
For i := 1 To pupils Do
Begin
For j := 1 To subjects Do
marks_average[i] := marks_average[i] + marks[i, j];
marks_average[i] := marks_average[i] / subjects;
End; For i := 1 To pupils Do
all_marks_average := all_marks_average + marks_average[i];
all_marks_average := all_marks_average / pupils;
WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
End.

MOGZ ответил