Question

НАПИСАТЬ ПРОГРАММУ ДЛЯ PASCAL!! [ за спам бан]

Используя цикл с пост-условием решить задачу :
найти произведение четных чисел от 10 до 0

Answer 1

Ответ:

program z1;

var a,p:integer;

begin

a:=10;

p:=1;

repeat

if a mod 2 = 0 then p:=p*a;

a:=a-1

until a<0 ;

write(p)

end.

Объяснение:

0 - чётное число