Проанализируем номера финишировавших бегунов: 12219,
14176, 7133, 990. Данная числовая последовательность, на первый взгляд, не
упорядочена, т.к. после первого числа сначала следует большее, а потом –
меньшее. Но, обращая внимание на три последних цифры в числах и, выписав их,
замечаем, что прослеживается довольно простая зависимость: 219, 176, 133, т.е.
каждое последующее число меньше предыдущего на 43. Действительно,
219-176=43; 176-133=43. Проверяем догадку: 133-90=43.
Следовательно, следующее число 90-43=47. Что же представляют из себя старшие
разряды номеров финишировавших спортсменов? Можно заметить, что они
представляют из себя сумму цифр последующих разрядов, т.е.: 2+1+9=12; 1+7+6=14;
1+3+3=7;
9+0=9. Значит, необходимо найти сумму цифр полученного
нами числа 47.
<span>4+7=11. Следовательно, номер спортсмена,
финишировавшего пятым, равен 1147.</span>
Не очень хорошо сформулирован вопрос.Эта программа генерирует 3 числа от -9 до 9 и выводит сначала все числа,затем наибольшее и наименьшее.
var a,b,c : Integer;
begin
Randomize;
a:=random(19)-9;
b:=random(19)-9;
c:=random(19)-9;
Writeln(a+' '+b+' '+c);
if((a>b)and(a>c)) then
Writeln('Наибольшее '+a)
else if(b>c) then
Writeln('Наибольшее '+b)
else
Writeln('Наибольшее '+c);
if((a<b)and(a<c)) then
Writeln('Наименьшее '+a)
else if(b<c) then
Writeln('Наименьшее '+b)
else
Writeln('Наименьшее '+c);
end.
1)
<span>8730 bit/s
</span>715860*8=5726880 bit
5726880 bit / 8730 bit/s = 656 sec
2)
695Kb * 1024 = 711680 byte
711680*8=5693440
(11*60)+35 = 695 s
5693440 bit / 695 s = 8192 bit/s
3)
3550Kb * 1024 = 3635200 byte
3635200 * 8 = 29081600 bit
(11*60)+50 = 710 s
29081600 / 710 = 40960 bit/s
Program test;
var
a:array[1..100] of integer;
i,n:integer;
begin
randomize;
for i:=1 to 99 do begin
n:=random(1,30);
if i mod 3 = 0 then begin
a[i]:=n;
a[i-1]:=n;
a[i-2]:=n;
end;
end;
for i:=1 to 99 do writeln(a[i]);
end.