Написать программу: вводятся число до тех пор пока не введен 5. ...
Написать программу: вводятся число до тех пор пока не введен 5. Найти произведение чисел не равных нулю. Ребята очень срочно
Есть ответ
17.12.2022
230
Ответ
var prod,temp:real;
begin
prod:=1;
repeat
readln(temp);
if (temp=5) then break;
if (temp0) then prod := prod * temp;
until (2*2=5);
writeln(prod);
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022