программа на Паскале...Нахождение произведения четных чисел и суммы нечетных чисел меньше 15...
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified 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.