Халявная задача! (делюсь решением)

[Mary Yu]

Вот прога
Дано целое число N>0.Найти произведение 1.1 * 1.2 * 1.3*...(N сомножителей).
и конечно решение:

http://img89.imageshack.us/my.php?image=32909978ed0.jpg

[Serge_Bliznykov]

Выложенная картинка никакого отношения к поставленной задаче не имеет...

[Mary Yu]

ОООО!Нет мне прощенья!*после диких программистких проклятий* выкладываю истинную :

Код: Выделить всё

 

var a,r,p:real;n,i:integer;
begin
 writeln('proiz=1.1*1.2*1.3..');
 write('N=');readln(n);
p:=1/1;r:=1.1; write('1.1');
for i:=2 to n do
  begin
    p:=p+0.1;r:=r*p;
end;
writeln('*';p:1:1);
readkey;
end.

Тогда условие 1-ой картинки
кажись такое:

Код: Выделить всё

 E 1/N!=e 

...не упомню условие..

[ALi_run]

Могу выложить тоже задачку по Факториалу, только данные будут типа "integer": ЗА goto НЕ РУГАЙТЕС =)

Код: Выделить всё

Uses
   crt;
Label
   m1;
Var
   n,a:integer;
   b:real; {Можно было и longint}
Begin
clrscr;
   Writeln('Введите число, до которого будем умножать!');
   Read(n);
   a:=0;
   b:=1;
   m1:if a<n then
      begin
            a:=a+1;
            b:=b*a;
            goto m1;
      end      
      else Writeln('Ответ:',b:0:12);
readkey;
end.

Вроде все!

Можно былобы еще вывести ошибку или n=0? но думаю сами разберетесь

[Хыиуду]

А чем циклы не угодили?
s:=1;
for i:=1 to N do
s:=s*i;
В результате в s получаем результат.