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

kirikk3 kirikk3    1   26.08.2019 21:50    0

Ответы
diankafedulova diankafedulova  31.08.2020 22:23
Var i,p: integer;
begin
  i:=2;
  p:=1;
  repeat
    p:=p*i;
    i:=i+2;
  until i>10;
  writeln('произведение: ',p);
end.

произведение: 3840
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика