Вычислить произведение нечетных чисел от 1 до n. в паскале как правильно составить всё?
Answers & Comments
MrSolution
Program proizvedenie; var i, n, k: Integer; begin k:= 1; writeln('Введите n:'); readln(n); for i:= 1 to n do if(i mod 2 <> 0) then k:= k*i; writeln(k); end.
//Если PascalABC.NET, то можно написать:
program proizvedenie; begin var k: Integer := 1; var n:= readInteger('Введите n:'); for i:= 1 to n do if(i.isOdd()) then k*= i; k.println; end.
Answers & Comments
var i, n, k: Integer;
begin
k:= 1;
writeln('Введите n:');
readln(n);
for i:= 1 to n
do if(i mod 2 <> 0) then k:= k*i;
writeln(k);
end.
//Если PascalABC.NET, то можно написать:
program proizvedenie;
begin
var k: Integer := 1;
var n:= readInteger('Введите n:');
for i:= 1 to n
do if(i.isOdd()) then k*= i;
k.println;
end.