Для случайных чисел:
var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для ручного заполнения:
var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Program znanija3;
var i, number:integer;
begin
number:=0;
while i <> 10 do begin
Inc(number);
if (number mod 10) = 7 then begin
writeln(number);
Inc(i);
end;
end;
end.
P.S. Inc(number) = number:= number+1
50 × 13 = 650 (кол-во символов на каждой стр), 650 × 200 = 130,000 (кол-во символов во всей книге). 1 мегабайт = 1024 килобайт, 1 килобайт = 1024 байт. 130,000 ÷ 1024 = 130(килобайт), дальше 130 ÷ 1024 = 0.13(мегабайт).
Ответ: 126,953125 килобайтов и 0,1239776611 мегабайтов
Примем класс за 1, тогда
скорость 1-го 1/х
а 2-го 1/у
Время, за кот. они уберут класс: 1/(1/х + 1/у)= ху/(х+у)
1)32768 бит /8 (чтобы узнать сколько байтов)=4096 байт
2)4096/1024=4 килобайт