Произведение на положителните числа

Публикувано на 19 април, четвъртък от Данаил

Да се направи програма, която позволява въвеждане на числа до въвеждане на 0 и извежда произведението на положителните.

Публикувано в 9в с етикети . Постоянна връзка.

One Response to Произведение на положителните числа

  1. kaloyan каза:
    19 април, четвъртък в 16:22 
    VAR chislo, proizvedenie : integer;
BEGIN
proizvedenie:=1;
  repeat
    write('vavedete chislo: ');readln(chislo);
    if chislo>0 then proizvedenie:=proizvedenie*chislo;
  until chislo=0;
  writeln('proizvedenieto na chislata e: ',proizvedenie);
readln;
END.

Вашият коментар