программа на Паскале ...

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

Question

Гелий

10 августа, 14:03

+4

Ответы (1)

Знаете ответ на вопрос?

Геруша · Answer 1

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.

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