var mas:array [1..15] of integer;
i:integer;
k:biginteger;
function f(mas:integer):boolean;
begin
if (mas mod 3=0) then f:=True;
if (mas mod 3<>0) then f:=False;
end;
BEGIN
k:=1;
for i:=1 to 15 do begin
mas[i]:=random(100)+1;
write(mas[i],' ');
if (f(mas[i])=True) then k:=k*mas[i];
end;
writeln();
if (k=1) then writeln('Нет элементов, кратных 3') else
writeln(k);
end.
Это просто переменные, никакого глубинного смысла.
1)
2*60=120 байт в строке
120*40=4800 байт на старнице
4800*1500= 7 200 000 байт=7.2 Мбайт во всей книге
2)
60*40=2400 байт
2400*150=360 000 байт =360 Кбайт=0.36 Мбайт
3)
128 Кбайт= 128 000 байт
128 000\ 2=64 000 символов
4)
1.5 Кбайт=1536 байт
1536*8=12288
12288\3072=4 бит
5)
в 1 Мбайте 1572864 байт
1572864\512=3072 байта=24 576 бит размер сообщения
24 576\2048=12 бит - размер одного символа
6)
8 бит = 1 байт
48*1=48 байт в строке
48*40=1920 байт в странице
1920*8= 15 360 байт в рассказе
15 360 байт= 15 Кбайт
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.