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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.