Определить произведение чётных чисел в диапазоне от 1 до 10 в программе Pasqal ABC

Question

Леокадия

4 сентября, 04:50

+2

Ответы (1)

Знаете ответ на вопрос?

Филофей · Answer 1

Var i, p: integer;

begin

i:=2;

p:=1;

repeat

p:=p*i;

i:=i+2;

until i>10;

writeln ('произведение: ', p) ;

end.

произведение: 3840