Броят на въведените числа

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

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

Един коментар по Броят на въведените числа

  1. kaloyan каза:
    VAR chislo,broi : integer;
    BEGIN
    broi:=-1;
    repeat
      write('vavedi chislo: '); readln(chislo);
      broi:=broi+1;
    until (chislo=0);
    writeln('vaveli ste ',broi,' chisla');
    readln;
    END.
    

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