1. 1.5тб=1536гб=1572864 мб
2. 2,5гб=2560мб=2621440кб
3. 543345бит=67918,125 байт=66.326 кб
Ответ:
6
Объяснение:
От 0 до 5(включительно) 6.
6 раз повториться действие
s:=s+1;
Значит будет:1+1+1+1+1+1=6
Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
randomize;
k:=1; p:=1;
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random (100);
if A[i,j]>A[k,p] then
begin
k:=i;
p:=j;
end;
Write(A[i,j]:3);
end;
Writeln;
end;
writeln ('Максимальный элемент матрицы = ', A[k,p]);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
i:=A[k,p];
A[k,p]:=A[1,1];
A[1,1]:=i;
For i:=1 to 4 do
Begin
For j:=1 to 4 do Write(A[i,j]:3);
Writeln;
end;
end.
89->24
1)89+1=90 (2)
2)90/2=45 (1)
3)45+1=46 (2)
4)46/2=23 (1)
5)23+1=24 (2)
Ответ: 21212
Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>