Var n, i: integer; p: real; begin write('n = '); readln(n); i:=0; p:=1; repeat i:=i+1; p:=p*(2*i-1)/(2*i); until i = n; writeln('Произведение: ', p:7:5); end.
Program calc; var n, u, d: integer; f: real; begin write('n = '); readln(n); u := 1; d := 2; f := 1; repeat f := f * (u / d); u := u + 1; d := d + 1; until d > (2 * n); writeln('Произведение: ', f:1:5); end.
uses crt; var a, b, c, n, i, j :integer; s :array [1..10000] of integer; begin clrscr; writeln ('Vvedite razmer masiva'); read (n); writeln ('Vvedite chislo X'); read (a); for i:=1 to n do begin writeln ('Vvedit s[', i, '] element'); read (s[i]); end; for i:=1 to n do for j:=1 to n-1 do if s[j]<s[j+1] then begin b:=s[j]; s[j]:=s[j+1]; s[j+1]:=b; end; for i:=1 to n do begin write (s[i], ' '); if s[i]=a then inc (c); end; writeln; if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet'); end.
//C# first problem using System; class Programm { static void Main() { int n=int.Parse(Console.ReadLine()); int[] a=new int [n]; for (int i=0;i<n;i++) { a[i]=i; Console.Write(a[i] + " "); } } }
//C# second problem using System; class Programm { static void Main() { int n=int.Parse(Console.ReadLine()); int[] a=new int [n]; int ma=0,mi=0,ma_p=0,mi_p=0; for (int i=0;i<n;i++) { a[i]=int.Parse(Console.ReadLine); } ma=a[0];mi=a[0];ma_p=0;mi_p=0; for (int i=0;i<n;i++) { if (ma<a[i]){ma=a[i];ma_p=i;} if (mi>a[i]){mi=a[i];mi_p=i;} } ma=a[ma_p]; a[ma_p]=a[mi_p]; a[mi_p]=ma; for (int i=0;i<n;i++){Console.Write(a[i] + " ");} } }
begin
write('n = ');
readln(n);
i:=0;
p:=1;
repeat
i:=i+1;
p:=p*(2*i-1)/(2*i); until i = n;
writeln('Произведение: ', p:7:5);
end.
Пример:
n = 5
Произведение: 0.24609