Определить произведение чётных чисел в диапазоне от 1 до 10 в программе Pasqal ABC
Определить произведение чётных чисел в диапазоне от 1 до 10 в программе Pasqal ABC
Гость
Ответ(ы) на вопрос:
Гостьvar i,p: integer;
begin
i:=2;
p:=1;
repeat
p:=p*i;
i:=i+2;
until i>10;
writeln('произведение: ',p);
end.
произведение: 3840
Не нашли ответ?
Похожие вопросы