Сна паскаль! составить программу для решения - вопрос №8583766 от vadim88768 16.07.2020 05:22

Question

Информатика: Сна паскаль! составить программу для решения : дано натуральное число n. вычислить , определяемое как произведение честных чисел от 2 до n, если n честно, либо как произведение нечетных чисел от 1 до n, если n нечетно.

vadim88768 · Answer

program raf105;

var

n,pro: integer;

begin

write('n = ');

readln(n);

pro:= n;

while n-2 > 0 do

begin

pro:= pro * (n-2);

n:= n - 2;

end;

writeln('Вывод: ',pro);

end.

PascalABC