Решить,схема горнера 50 сразу

program raf105;

var a:array[1..30,1..20] of string;

i,j,o:integer;

s:string;

begin

for i:=1 to 30 do

 for j:=1 to 20 do

   a[i,j]:= '';

writeln('Вводите слова по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(s);

 if s <> '0'

   then

   begin

     o:= o+1;

     for i:=1 to length(s) do

       a[o,i]:= s[i];

   end;

until s = '0';

writeln;

writeln('Вывод:');

for i:=1 to o do

begin

 for j:=1 to 20 do

   if a[i,j] = 'а'

     then a[i,j]:= 'о';

 for j:=1 to 20 do

   if j <> 1

   then

   begin

     a[i,1]:= a[i,1] + a[i,j];

     a[i,j]:= '';

   end;

 writeln(a[i,1]);

end;

end.

Объяснение:

1. Числа Фибоначчи

function Fibon (n:integer):longint;

var fib_1,fib_2,fib:longint;

i :integer;

begin

if (n<3) then Fibon:=1

else

begin

fib_1 := 1;

fib_2 := 1;

i:=2;

while i<n do

begin

fib:=fib_1+fib_2;

fib_1:=fib_2;

fib_2:=fib;

i:=i+1;

end;

Fibon := fib;

end;

end;

begin

writeln('Fib(',40,') = ',Fibon(40));

readln;

end.        

Числа кратные к

program sumkr;

var

 n,i,r,k: integer;

 sum: longint;

begin

write('Введите число n (1<=n<=4): ');

readln(n);

r:=1;

for i:=1 to n-1 do

r:=r*10;

write('Введите число k: ');

readln(k);

i:=r;

while i <= r*10-1 do

begin

if i mod k=0 then sum:=sum+i;

i:=i+1;

end;

writeln('Сумма чисел от ',r,' до ',r*10-1,' кратных ',k,' = ',sum);

readln;

end.

===

3. НОК

program NOK_a_b;

var a, b, nod, nok,p: integer;

begin

writeln('Введите а и в ');

readln(a, b);

p:=a*b;

while (a <> 0) and (b <> 0) do

if a > b then a := a mod b

else b := b mod a;

nod := a + b;

nok:=p div nod;

writeln('НОК= ', nok);

readln;

end.