Написать программу: вводятся число до тех пор пока не введен 5. Найти произведение чисел не равных нулю. Ребята очень срочно

1

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

  • nelle987
  • Ведущий Модератор
2013-03-14T09:16:59+04:00

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

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

var prod,temp:real;

begin

   prod:=1;

   repeat

      readln(temp);

      if (temp=5) then break;

      if (temp<>0) then prod := prod * temp;

   until (2*2=5);

   writeln(prod);

end.