Впаскале 1. есть ли среди трёх чисел пара одинаковых чисел? 2. дано натуральное число m . имеются ли в этом числе цифры a и b, вводимые с клавиатуры? 3.ряд чисел фибоначчи 1, 1, 2,3,5, каждое следующее число равно сумме двух предыдущих. найти n-ое число ряда.

// pascalabc.net 3.0, сборка 1073 var   a,b,c: integer; begin   write('введи a,b,c: '); read(a,b,c);   if (a=b) or (a=c) or (b=c) then writeln('есть пара одинаковых')   else writeln('все числа различные') end. тестовое решение: введи a,b,c: 6 3 -12 все числа различные введи a,b,c: 5 -4 5 есть пара одинаковых // pascalabc.net 3.0, сборка 1073 var   n: string;   a,b: char; begin   write('введи натуральное число n: '); readln(n);   write('введи подряд пару разыскиваемых цифр: '); read(a,b);   if pos(a,n)> 0 then writeln('в числе есть цифра '+a)   else writeln('в числе цифры '+a+' нет');   if pos(b,n)> 0 then writeln('в числе есть цифра '+b)   else writeln('в числе цифры '+b+' нет') end. тестовое решение: введи натуральное число n: 3141592653589793 введи подряд пару разыскиваемых цифр: 47 в числе есть цифра 4 в числе есть цифра 7 // pascalabc.net 3.0, сборка 1073 var   i,n: integer;   fiba,fibb,fib: longint; begin   write('введи натуральное число (1-46): '); read(n);   if n< 3 then writeln('число фибоначчи равно 1')   else begin       fiba: =1; fibb: =fiba;       for i: =3 to n do begin           fib: =fiba+fibb;           fiba: =fibb; fibb: =fib       end;       writeln('число фибоначчи равно ',fib)   end end. тестовое решение: введи натуральное число (1-46): 13 число фибоначчи равно 233

Вообщем непонятно что делает. убирает последние три цифры у числа, затем эти самые три цифры умножает на переменную "b", и так повторяется, пока это число не станет меньше 1000. ответ: 1011. не парься