Продолжите последовательность: 2, 48 , 163

2 , 48 , 163 , 209 ,324                                                                                                   тоесть между 2 и 48 получается 47   а между 48 и 163 получаеться 115

 

209,255,301, к числу прибавляй 46)

Паскаль авс program loctarugar; uses crt; const   eps=0.001; function fact(n : integer) : longint;   begin       if n < = 1                 then  fact : = 1                 else    fact : = n * fact(n - 1);   end; var   t,s: real;   i: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln();   writeln('программа вычисляет частичную сумму ряда с заданной точностью');   writeln('  общий член ряда:   an = ((3^n)*n! )/ (2n)! ');   writeln('вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');   writeln();   s: =0;     i: =1;     t: =1;   while t> eps do       begin           t: =(power(3,i)*fact(i))/(2*fact(2*i));           s: =s+t;           writeln('a(',i,')=',t: 0: 6,'  s=',s: 0: 6);           i: =i+1;         end;   writeln();   writeln('сумма ряда равна',s: 0: 6); end.

Трудно сказать не видя структуры твоего калькулятора. если у тебя два поля для ввода чисел (edit1 и  edit2), а результат записываешь в  memo1 (кстати, а зачем именно тип  то можно сделать следующим образом (пример для кнопок "+" и "-") procedure tform1.plusclick(sender: tobject); var x,y: real; r: string; begin     val(edit1.text,x);     val(edit2.text,y);     str(x+y,r);   memo1.lines[0]: =edit1.text+'+'+edit2.text+'='+r; end; procedure tform1.minusclick(sender: tobject); var x,y: real; r: string; begin     val(edit1.text,x);     val(edit2.text,y);     str(x-y,r);   memo1.lines[0]: =edit1.text+'-'+edit2.text+'='+r; end;