Написать программу вычесляющую произведение всех чётных чисел у интервала [1; 20]

Question

Информатика

Мелентий

29 января, 01:01

Написать программу вычесляющую произведение всех чётных чисел у интервала [1; 20]

+3

Ответы (1)

Знаете ответ?

Адамушка · Answer 1

Const N=10;

var a: array [1 ... N] of integer;

i, p: integer;

begin

for i:=1 to N do

a[i]: = random (20) ;

p:=1;

if a[i] mob 2=0 then

p:=p*a[i];

writeln (a[i];

end.