Const
n=15; { длина массива }
type
tm=array[1..n] of integer;
var
i:byte;
a,b,c:tm;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(101-50);
b[i]:=random(101-50);
c[i]:=a[i]*b[i];
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(b[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(c[i],' ')
end;
Writeln
end.
500 байт = 4000 бит, т.к в одном байте 8 битов(значит умножаем 500 на 8, получаем 4000).
5 кб = 5120 байт, т.к в 1 кб 1024 байтов, значит умножаем 5 на 1024, получаем 5120
87 гб = 93415538688 байт, т.к в 1 гб 1024 мб, в 1 мб 1024 кб,в 1 кб 1024 байт. Получаем 1024*1024*1024(1024 в кубе) = 1073741824 байт в 1 гб. Умножаем 87 на 1073741824 = 93415538688 байт
7 мб = 58720256 бит, т.к в 1 мб 1024 кб, в одном кб 1024 байт, в одном байте 8 бит. Значит 1024*1024*8=8388608 бит в одном мб. 7*8388608=58720256 бит в 7 мб
46 байт = 0,000044 мб. Байт - 0,0009765625 часть кб(1 разделить на 1024, т.к в одном кб 1024 байт). Опять-таки делим получившееся число(0,000976...) на 1024, получаем 0,00000095367431640625. Теперь мы знаем, что 1 кб - 0,00000095367431640625 часть Мб, умножаем 0,00000095367431640625 на 46, получаем 0,0000438690185546875, можно, думаю, округлить. Получим как раз-таки, округлив, 0,000044.
700000 бит = 85,45 кб. Получили это число, разделив 700000 на 8(в 1 байте 8 бит). Получаем 87500 байтов. В 1 кб 1024 байтов. Делим 87500 на 1024, получаем 85,44921875 кб в 700000 битах. Округлив, получаем 85,45 кб.
Var x: byte;
Begin
Write(‘ введите число от 1 до 7')
Readln(x);
Case x of
1: writeln(‘понедельник’);
2: writeln(‘вторник’);
3: writeln(‘среда’);
4: writeln(‘четверг’);
5: writeln(‘пятница’);
6: writeln(‘суббота’);
7: writeln(‘воскресенье’);
end;
Readln
End.
я не помню как чтоб выдало ошибку ..пили если больше х то ошибка