Var
i,max,min,res,maxi,mini:integer;
a: array [1..15] of integer;
begin
writeln('Введите числа');
for i:=1 to 15 do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=1 to 15 do
begin
if max<a[i] then begin
max:=a[i];
maxi:=i;
end;
if min>a[i] then begin
min:=a[i];
mini:=i;
end;
end;
if maxi>mini then
res:=maxi-mini
else
res:=mini-maxi;
res:=res-2;
writeln('между максимум и минимум = ', res, ' элементов');
end.
(100 * 1024 * 1024 * 8) / 1000000 = 839 сек = 14 мин
все округлено в большую сторону
Задание 3.7
//Pascal
var i,n,k:integer;
begin
n:=24;
k:=1;
//количество амеб через
//цикл for
for i:=1 to n div 3 do begin
k:=k*2;
writeln('Время :',i*3,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл while
i:=0;
k:=1;
while i<n do begin
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл Repeat
i:=0;
k:=1;
repeat
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
until i=n
end.
Задание 3.8
var
k,b,t:integer;
begin
for b:=1 to 10 do
for k:=1 to 20 do
for t:=1 to 200 do
if (b*10+k*5+t*0.5=100)and(b+k+t=100)then writeln('Быков: ',b,' Коров:',k,' Телят:',t);
end.
В таблице нас больше всего интересует последняя строка, т.к. в выражениях, в основном, дизъюнкция и импликация (за исключением последнего, там еще и конъюнкция), а дизъюнкция и импликация ложны только в одном случае, поэтому нам проще работать с ложью.
Подставим значения из последней строки в каждое выражение:
Примечание: импликация ложна в случае 1 → 0.
1) (1 → 1) → 0 - ложно, т.к. выражение в скобках даёт 1, и мы получаем (1) → 0 = 0
2) 1 → ( 1 → 0 ) - ложно, т.к. выражение в скобках даёт 0, и мы получаем 1 → (0) = 0
3) ¬1 ∨ 1 → 0 = (0 ∨ 1) → 0 = 1 → 0 - ложно
4) 1 ∨ 1 ∧ ¬ 0 - истинно, т.к. в дизъюнкции первой уже стоит 1. Кроме того, 1 ∧ ¬ 0 так же даёт 1.
Ответ: 4
Такая топология компьютерной сети называется звезда.
Ответ: звезда.