Program nearone;
var R,i,x,N:integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(50);
writeln(a[i]);
end;
write('Число R ->');
readln(R);
x:=abs(a[1]-R);
N:=1;
for i:=2 to 10 do
if x > abs(a[i]-R) then
begin
x:=abs(a[i]-R);
N:=i;
end;
writeln('Ближайшее число - ',a[N]);
end.
1.Гарри Поттер и Кубок огня.
Дж.яК.Ролинг.
2002 год издания
3487 байт /1024 =... кбайт
35.4 гбайт/1024/1024= ... кбайт
32 бит /8 =… байт
22 бита = 22 бит
Может быть много окон на рабочем столе компьютера
Решение:
1) 1 килобит = 125 байт,
320*125=40000
2) 13 677 934/40000 = 341,94835 = 342 сек
Ответ: 342 секунды; 5 минут 42 секунды.