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

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

1

Ответы и объяснения

Лучший Ответ!
2012-04-02T11:40:29+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.