Предмет: Информатика,
автор: mariy7991
Написать программу: вводятся число до тех пор пока не введен 5. Найти произведение чисел не равных нулю. Ребята очень срочно
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Алгебра,
автор: anvarovislam52
Предмет: Русский язык,
автор: agafamihaleva
Предмет: География,
автор: Аноним
Предмет: Геометрия,
автор: meledi98