У багаторядковому текстовому полі містяться значення середньої температури повітря кожного дня тижня. Визначте середню температуру повітря за весь тиждень. З’ясуйте, скільки разів на тиждень середня денна температура була вище нуля. Надо сделать в лазарусе
Пмогите
Найдем объем всего сообщения в битах:
1/512 Мб=1024/512 Кб=2 Кб=2*1024 байт=2048 байт=2048*8 бит
Найдем сколько занимает один символ для этого поделим кол-во битов в сообщении на кол-во символов:
(2048*8)/2048=8 бит i=8
найдем мощность алфавита N
N=2 в стапени i
N=256
ответ: N=256
№2
Найдем сколько занимает один знак:
N=2 в степени i
256=2 в степени i
i=8 бит
Найдем сколько займут введенные символы:
8*100=800 бит=800/8 байт=100 байт
ответ: 100 байт
№3
Найдем сколько занимает один символ:
N=2 в степени i
65536=2 в степени i
i=16 бит=2 байта
Найдем кол-во символов:
4стр*5мин=20стр
20стр*40строк=800строк
800строк*50 симв=40000симв
Все символы занимают:
40000*2 байта=80000байт
ответ: 80000байт
Объяснение:
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,1,50);
a.Println(3); Writeln(3*a.ColCount*'-');
// начало расчетов
var s:=0;
for var i:=0 to n-1 do s+=a[i,n-i-1];
Writeln('1: S=',s);
Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn;
Write('3: Произведение элементов: ');
a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn;
var p:BigInteger:=1;
for var i:=0 to n-1 do p*=a[i,i];
Writeln('4: П=',p);
end.