Программа в Pascal с циклом while.

[Jaix]

Товарищи программисты,помогите пожалуйста с заданием,напишите код программы,очень срочно нужно,задание само простое судя по всему

[Battleman]

хаха

у меня 20 вариант попался))

вот держи если поможет))

var s: real;
i,n,fack:integer;
begin
read(n);
s:=1;
fack:=1;
for i:=2 to n do
begin
fack:=fack*i;
s:=s*sqr(1-(1/fack));
end;
writeln(s);
end.

program rabota3;

[Jaix]

Battleman

Спасибы,щас попробую сделать А ты расписал таблицы все?

[Battleman]

Jaix

ага все,уже зачтено