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

Question

48

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

в избранное ссылка

Знаете ответ?

olleg · Accepted Answer

65

olleg

09 марта 2024

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.

комментировать

в избранное ссылка отблагодарить