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

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

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

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

  1. kaloyan каза:
    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.   
    

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