дано натуральное число...

Тема в разделе "Информатика", создана пользователем ptichkina, 16 янв 2010.

  1. ptichkina

    ptichkina New Member

    дано натуральное число n. Вычислить у=1*3*5...*(2n-1). Составить программу на языке Паскаль.
     
    ptichkina, 16 янв 2010
    #1
  2. Alex2

    Alex2 New Member

    Program n1;
    Uses CRT;
    Var i,n,m: integer;
    begin
    ClrScr;
    writeln('Vvedite n');
    readln(n);
    i:=1; m:=1;
    while i<2*n-1 do
    begin
    i:= i+2;
    m:= m*i;
    end;
    writeln(m);
    readln
    end.
     
    Alex2, 16 янв 2010
    #2

Поделиться этой страницей

Наша группа