Дано натуральное число n. Вычислите произведение нечетных натуральных чисел от 1 до n. Как должна правильно выглядеть программа??
Дано натуральное число n. Вычислите произведение нечетных натуральных чисел от 1 до n.
Как должна правильно выглядеть программа??
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы