дано натуральное число n. Вычислите творенье нечетных натуральных чисел от 1

Дано естественное число n. Вычислите творение нечетных естественных чисел от 1 до n.
Как обязана верно смотреться программа??

Задать свой вопрос
1 ответ

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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт