Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Найти произведение n первых нечетных натуральных чисел, при помощи PASKAL

Ответ оставил Гость

Program n_1;
var a,i,n:integer;
begin
writeln(Введите количество натуральных чисел: );
readln(n);
a:=1;
for i:=1 to n do 
begin 
if i mod 2 <> 0
then a:=a*i
end;
write(Произведение нечётных чисел данного диапазона равно: , a)
end.