Найти сумму ряда - Turbo Pascal (35280)

Формулировка задачи:

турба паскаль задача s=10/1+10^2/ * 2+10^3/1*2*3+... Добавлено через 46 секунд Срочно нужно, с меня спасибки Добавлено через 7 минут http://saveimg.ru/show-image.php?id=8461788663d8c645f2bbee96f661d924 Вот так она выгледит

Код к задаче: «Найти сумму ряда - Turbo Pascal (35280)»

textual
uses crt;
var
   i,n:integer;
   sum,ch,zn:real;
begin
   clrscr;
   write('n=');
   read(n);
   sum:=0;
   zn:=1;
   ch:=1;
   for i:=1 to n do
    begin
       zn:=zn*i;
       ch:=ch*10;
       sum:=sum+ch/zn;
       write(ch:1:1,'/',zn:1:1,'+');
    end;
   write('=',sum:2:2);
   readkey;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ