Паскваль вычислите n чисел фибоначи: f1=1; f2=1; ; fn=fn-1+fn-2, например: f3=f2+f1=1+1=2, f4=2+1=3 b т.д.

var n: longint;

function f(n: integer): longint;

begin

if (n=1)or(n=2) then f: =1 else

f: =f(n-1)+f(n-2);

end;

begin

write("vvedite poziciu chisla: ");

read(n);

write("chislo ryada na dannoy pozicii ravno ",f(n));

end.

Program massive; varqw: array[1..30] of integer; min, i, a, b, c: integer; begin //погнали//задаём массив случайными числами из [5; 20]//*************************************************************************************randomize; //запускаем генератор случайных чиселfor i: =1 to 10 doqw[i]: =random(15)+5; //*************************************************************************************for i: =1 to 30 dowrite(qw[i],' '); writeln(' '); //***********************************************************************************//чередуем по возрастаниюfor a: =1 to 30 dobeginmin: =32767; for i: =a to 30 doif(qw[i]< min) thenbeginmin: =qw[i]; b: =i; end; c: =qw[b]; qw[b]: =qw[a]; qw[a]: =c; end; //**************************************************************************************//вывод массиваfor i: =1 to 30 do  write(qw[i],' '); read(a); end.//radiofan

Сначала немного теории.тут у нас импликация(если.. комбинированная с  конъюнкцией(и).таблица истинности импликации(стрелочки): 0 0 10 1 11 0 01 1 1общее правило: если a< =b, тогда правдатаблица истинности  конъюнкции(/\): 0 0 00 1 01 0 01 1 1общее правило: если есть одна ложь-всё ложьтеперь о примере: просто подставляем вместо x варианты. так как между двумя скобочками с стоит и, нам нужен вариант, где оба  являются правдой.рассмотрим подробно 1 вариант: 21< 25 - это правда21< 23 - это правдатаким образом, в первых скобочках правда, это доказывает таблица истинности, выше.21< 22 - это правда21> 21 - это ложьв этих скобочках-ложь.а так как ложь и правда в и являются ложью, нам не подходит данный вариант2 вариант-верный ответ, т.к.: 22< 25 - это правда22< 23 - это правдав первых скобочках правда22< 22 - это ложь22> 21 - это правдаи в этих скобках правда.как можно убедится, снова взглянув в таблицу истинности для  конъюнкции, всё выражение является правдой.3 и 4 посмотрите сами и убедитесь что это ложь.