Написать прогу на...

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

  1. melkiystepik

    melkiystepik New Member

    Написать прогу на паскале. Дано натуральное число n. Вычислить y=2*4*6...(2n).
     
    melkiystepik, 13 фев 2010
    #1
  2. Sasha.grodno

    Sasha.grodno New Member

    Program Program1;
    var
    i,n,y:integer;
    begin
    write('Введите значение n: ');
    readln(n);
    i:=2;
    y:=1;
    while i<=2*n do
    begin
    y:=y*i;
    inc(i,2);
    end;
    writeln('y=',y);
    end.
     
    Sasha.grodno, 13 фев 2010
    #2

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

Наша группа