profile
Опубликовано 6 лет назад по предмету Информатика от Настя2108

Составить программу,которая вычисляет произведение нечетных натуральных чисел от 1 до N Помогите ,пожалуйста:))

  1. Ответ
    Ответ дан slavik4289

    Var a,n,i:integer;
    Begin
    Writeln('введи n');
    Readln(n);
    a:=1;
    For i:=1 to n do begin
    A:=a*i;
    Inc(i);
    End;

    writeln('Ответ: ');
    Writeln(a);
    End.

  2. Ответ
    Ответ дан crool100

    program c1;

    var

    i,n:integer;

    x:longint;

    begin

    x:=1;

    write('Введите n: ');

    readln(n);

    for i:=1 to n do

    if (i mod 2=1) then x:=x*i;

    writeln(x);

    end.

     

Самые новые вопросы