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

Question

Информатика: Определить произведение чётных чисел в диапазоне от 1 до 10 в программе pasqal abc

kirikk3 · Answer

Var i,p: integer;begin  i:=2;  p:=1;  repeat    p:=p*i;    i:=i+2;  until i 10;  writeln( произведение: ,p);end.произведение: 3840...