82 числа в этом промежутке
Var
m : array[1..4,1..4] of Integer;
m_new : array[1..4] of Integer;
i,j : Integer;
Begin
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
If i=j then m_new[i]:=m[i,j];
end;
Writeln;
end;
Writeln('Главная диагнональ: ');
For i:=1 to 4 do Write(m_new[i]:5);
Writeln;
end.
<u>Инструкция:</u>
При любом префиксе и слове
байт нужно к предыдущей степени прибавить 10(при условии что префиксы равномерно уменьшаются
Пбайт-Тбайт-Гбайт-Мбайт-Кбайт-байт).
1 байт =
байт
1 Кбайт =
байт
1 Мбайт =
байт
И так далее...
При слове
бит нужно к предыдущей степени
НЕ БИТОВ прибавить 3.
1 байт =
бит
1 Кбайт =
байт =
бит
____________
<u>Решение:</u>
1 байт -
байт
1 Кбайт -
байт -
бит
1 Мбайт -
Кбайт -
байт -
бит
1 Гбайт -
Мбайт -
Кбайт -
байт -
бит
1Тбайт -
Гбайт -
Мбайт -
Кбайт -
байт -
бит
1 Пбайт -
Тбайт -
Гбайт -
Мбайт -
Кбайт -
байт -
бит
Program Znanija;
var readd, i, maxx: Integer;
begin
read(readd);
maxx:=readd;
for i:=0 to 29 do
begin
read(readd);
if readd > maxx then
maxx :=readd;
end;
write('Max element is ', maxx);
end.