Программа на нахождение произведения четных чисел и суммы нечетных чисел меньше

bogussasa7 bogussasa7    2   08.03.2019 03:30    5

Ответы
Alesandrenok Alesandrenok  24.05.2020 04:48

var s,p:real;

i:integer;

Begin

  p:=1;

  for i := 1 to 14 do

    if i mod 2 = 0 then p:=p*i

    else s:=s+i;

  writeln(p,s);

End.

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