Помогите пожалуста с задачами

[мизаил18]

Сообщение от Блуд

a! это 1+2+3+4+...+a?
но тогда зачем n
отгадать букву,это перебрать все буквы,пока не найдётся та,которую ты задумал?

я незнаю что такое а! честно говоря. наверно наоборот программа загадывает букву а пользователь угадывает вводя свой вариант.одну и ту же можно буву записать что бы загадывал можно

[Блуд]

var
i:integer;
 res:string;
begin
 for I := 65 to 90 do
 begin
   writeln('(D/N)Vi zadumali bukvu '+chr(i));
   readln(res);
   if (res='D')or (res='d') then
   begin
     writeln('ugadano');
     sleep(1000000000);
     exit;
   end;

 end;
 writeln('ne ugadano');
 sleep(1000000000);
end.

вот программа угадывает букву,щас перепишу

[Grag]

Вообще-то a! - это факториал числа "а" и он всегда вычислялся как
a!=1*2*3*4*.....*a

[Блуд]

Сообщение от Grag

Вообще-то a! - это факториал числа "а" и он всегда вычислялся как
a!=1*2*3*4*.....*a

всё равно что то не то, n для чего там

[Блуд]

вот на угад буквы

var
i:boolean;
 res,p:string;
begin
randomize;
res:=chr(random(26)+65);
i:=true;
writeln(res);//для проверки,можешь удалить
while i do
begin
  writeln('vvedite sinvol');   //вводить заглавными буквами
  readln(p);
  if p=res then
  begin
   i:=false;
   writeln('Ugadano');
   sleep(10000);
  end
  else
   writeln('Ne verno');

end;

end.

загадывает букву от A-Z

[ZaRDaK]

Блуд, учи матчасть
http://ru.wikipedia.org/wiki/Факториал

[мизаил18]

ребят а как вот это написать?

1) Вычислить значение выражений по формулам
(cos x/пи-2x)+16х*cos(xy)-2

[W.i.d.g.e.t.1]

 VAR x,y,znachenie:extended;
begin
  writeln('vvedite x');
  readln(x);
    writeln('vvedite y');
  readln(y);
  znachenie:=  (cos(x/pi-2*x))+16*x*cos(x*y)-2 ;
  writeln(znachenie);
  readln;
end.

[мизаил18]

СПАСИБО!!!!!!!!!!!!!