Маленькая программка

[AVer]

Сорри, мой косяк, просто пишу вслепую.

Function One(X:Char):Boolean;
...
If One(A[I]) Then WriteLn(A[i]);

[pLo_ua]

Вот код, который вышел:
program Projec4;
{$APPTYPE CONSOLE}
Const N=10;
Var A:array[1..N] of Char;
I:Integer;

Function One(X:Char):Boolean;
Var I,F:Integer;
Begin
F:=0;
For I:=1 To N Do
If A[i] = X Then Inc(F);
If F = 1 Then One:=True Else One:=False;
End;

Begin

For I:=1 To N Do
If One(A[i]) Then WriteLn(A[i]);

End.
Но все таки 4то то не так, даже если вставить ридлн, что бы выводило, всетаки вот вставь себе код в делфи, и увидишь=((

[AVer]

{$APPTYPE CONSOLE}
Const N=10;

Var A:array[1..N] of Char;
I:Integer;

Function One(X:Char):Boolean;
Var I,F:Integer;
Begin
F:=0;
For I:=1 To N Do
If A[i] = X Then Inc(F);
If F = 1 Then One:=True Else One:=False;
End;

Begin
For I:=1 To N Do Read(A[I]);
For I:=1 To N Do
If One(A[i]) Then WriteLn(A[i]);
ReadLn;
ReadLn;
End.

Вводишь 10 символов в строку без пробела и давишь Enter. Вуаля.

[pLo_ua]

Спасибо большое, что уделил мне немножко времени=))

[pLo_ua]

Зада4ка:
Дано натуральне число n. Обчислити добуток перших n співмножників:
1/2*3/4*5/6*...

[pLo_ua]

кто то смотрел вышестоящию зада4ку?!

[pLo_ua]

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

кто то смотрел вышестоящию зада4ку?!

(*_*)____________________________

[AVer]

Слушай, если можешь, напиши по русски плиз. Ниче не понял.

[pLo_ua]

Тойсть как я понимаю это зада4ю:
есть 4исла 1/2, 3/4, 5/6 ну и так делее (7/8, 9/10.....)
Ну ты типо должен ука3ать например 4исло (n=5)? той1сть прога общитуеть умножение 1/2 * 3/4 * 5/6 * 7/8 * 9/10 и выдает ответ!
Доход4иво обяснил?

[puporev]

Если просто перемножить, то код ниже, а если полученную дробь нужно сократить. то нужно найти наибольший общий делитель и сократиь на него.

uses crt;
var n,i,t,q:longint;
begin
clrscr;
write('n=');
readln(n);
t:=1;q:=1;
for i:=1 to n do
   begin
    t:=t*(2*i-1);
    q:=q*(2*i);
   end;
write('Proizwedenie=',t,'/',q);
readln
end.