Program aaa;
var A: array[1..100,1..100] of integer;
B,C: array[1..100] of integer;
D: array[1..100] of real;
m,n,s,p: integer; sa,x: real; i,j: byte;
begin
randomize;
write ('Введите M и N: ');
readln (m,n);
writeln;
writeln ('Исходный массив:');
s:=0; p:=1; sa:=MaxReal;
for i:=1 to m do begin
for j:=1 to n do begin
A[i,j]:=random(0,11);
write (A[i,j]:5);
s:=s+A[i,j];
p:=p*A[i,j];
if j>1
then begin
x:=(A[i,j]+A[i,j-1])/2;
if sa>x then sa:=x;
end;
end;
B[i]:=s;
C[i]:=p;
D[i]:=sa;
s:=0; p:=1; sa:=MaxReal;
writeln
end;
writeln;
writeln ('Массив B - суммы строк:');
for i:=1 to m do
write (B[i]:7);
writeln;
writeln;
writeln ('Массив C - произведения строк:');
for i:=1 to m do
write (C[i]:7);
writeln;
writeln;
writeln ('Массив D - наименьшие средние арифметические строк:');
for i:=1 to m do
write (D[i]:7);
end.
--------------------
Введите M и N: 5 4
Исходный массив:
2 6 10 11
10 6 4 7
8 6 3 7
2 9 8 4
6 7 9 5
Массив B - суммы строк:
29 27 24 23 27
Массив C - произведения строк:
1320 1680 1008 576 1890
Массив D - наименьшие средние арифметические строк:
4 5 4.5 5.5 6.5
А)
X > Y ⇒ 2 > 2 ⇒ ложь (false)
б)
X > Y ⇒ 2 > -8 ⇒ истина (true)
Var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
if b*d mod 2 = 0
then writeln('b = ',b,' d = ',d,' ',b,'*',d,' = ',b*d);
end.
Пример:
<span>Введите 4 числа:
</span><span>51 32 19 73
</span>b = 32 d = 73 32*73 = 2336
*переводим большую единицу (Гб) в меньшую (Мб)*
Что бы это сделать нужно 40 Гб * 1024
Но так как мы знаем что 1024 это 2^10, то получаться что 40Гб= 40* 2^10Мб
чтобы найти кол-во дисков
Нужно объем информации разделить (40 * 2^10) на объем дика (600)
(40*2^10) \ (600) = (5*2^3*2^10) \ (75*2^3) *сокращаем 2^3* =
=(5*2^10) \ (75) *возводим 2 в 10 степень и умножаем на 5* =
=5120 \ 75 =68,2666... *округляем в большую сторону, т.к по условию задачи дано что информация должна занимать полностью диск*
ОТВЕТ : 69
**справка* степени 2*
2^1=2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
2^8=256
2^9=512
2^10=1024