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.
Var x, a, b, c, d: integer;
begin
readln(x, a, b, c, d);
if ((x > a) and (x < b)) then
writeln('[', a, '; ', b, ']');
if ((x > c) and (x < d)) then
writeln('[', c, '; ', d, ']');
<span>end.
Вот так, интервалы - они и в Африке интервалы)</span>
При значениях x1 1 функция принимает истинное значение всегда, в остальных случаях только 0.
Ответ 000,100,101,110,111
Для элементарных логических функций с двумя переменными если значение переменных истина, то и результат будет истина.
Ответ: 1
{В данной последовательности к числу сначала 2 раза прибавляется 3, после один раз вычитается 3. Данная программа "ест" много памяти, но с ходу я ничего лучше не могу придумать}
//Pascal ABC.NET v3.0 сборка 1111
Var
i,k:integer;
ar:array[1..2100] of integer;
begin
ar[1]:=3;
ar[2]:=6;
ar[3]:=9;
ar[4]:=6;
i:=4;
while i<2015 do
begin;
inc(i);
ar[i]:=ar[i-1]+3;
inc(i);
ar[i]:=ar[i-1]+3;
inc(i);
ar[i]:=ar[i-1]-3;
end;
write(ar[2015]);
<span>end.
Ответ: 2019</span>