Question

НАПИСАТЬ ПРОГРАММУ ДЛЯ PASCAL! [ за спам бан]
Используя цикл с ПОСТ-УСЛОВИЕМ решить задачу :
найти произведение четных чисел от 10 до 0

Answer 1

var

pr,i : integer;

begin

pr := 1;

i := 10;

repeat

pr *= i;

i := i - 2;

until i < 0;

writeln(pr);

end.