переведем указанный объем в Мб. Для этого разделим его на 8, на 1024 и еще раз на 1024. Решение запишем в виде степеней числа два:
2^37/2^3*2^10*2^10 (при умножении показатели степеней складываются
2^37/2^23=2^14
задача 3
запишем условие: К=256, I=1024 байт i=?
решение: выразим информационный объем в битах
I=1024*8=8192 бита разделим это число на кол-во символов в тексте
i=8192/256=32 бита
запусти несколько бесконечных циклов, и комп 100% висанет
program number7;
uses crt;
var A: integer;
begin
clrscr;
A:=(116 div 10)*(116 mod 15) div 2 +116 mod 6;
writeln('a=',A);
end.
a=62, div 10 - делит число на 10 и выделяет целую часть, mod 15 - делит число на 15 и выделяет остаток от деления , div 2 - делит число на 2 и выделяет целую часть, mod 6 - делит число на 6 и выделяет остаток
Var
a:array[1..10]of array[1..10] of integer;
i, j ,P: Integer;
Begin
randomize;
writeln('Массив:');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin a[i][j]:=random(21)-10;
write(a[i][j]:5);
end;
writeln;
end;
for i := 1 to 10 do
if a[i][i] < 0 then
begin P:=1;
for j := 1 to 10 do
P:=P*a[i][j];
writeln(i,'-я строка, П=',P);
end;
writeln;
<span>End.</span>
<u>5</u>. 13^10=15^8
148^10=224^8
2018^10=3742^8
<u>6</u>. 13^10=D^16
148^10=94^16
2018^10=7E2^16
<u>7</u>. 318^10=100111110^2
318^10=476^8
318^10=13E^16
^- Система счисления...