Регистрация
masterpop15432
15.07.2021 15:05
Информатика
Есть ответ 👍

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

264
269
Посмотреть ответы 2

Ответы на вопрос:

DmdmdmA
DmdmdmA
4,7(84 оценок)
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.
kep951
kep951
4,6(78 оценок)
3) адрес подпрограммы - обработчика этого прерывания             

Популярно: Информатика