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

Публикувано на 18 април, сряда от Данаил

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

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

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

  1. kaloyan каза:
    26 април, четвъртък в 14:41 
    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.

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