Произведение на 10 числа

Да се въведат 10 числа и да се отпечата произведението им

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

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

  1. Данаил каза:

    Ако се въведе нула, произведението е ясно колко ще е, така че няма нужда да се въвежда повече:

    program project1;
    var
      chislo, pr, broi: integer;
    begin
      pr:= 1;
      WriteLn('Vavedete 10 chisla:');
      for broi:= 1 to 10 do begin
        ReadLn(chislo);
        pr:= pr*chislo;
        if chislo = 0 then Break;
      end;
      WriteLn('Proizvedenieto e ', pr);
      ReadLn;
    end.
    

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