Три положителни

Да се позволи въвеждане на числа докато не се въведат 3 положителни.

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

Един коментар по Три положителни

  1. krisi3005 каза:
    program Project1;
    var br, x : integer ;
    
    begin
      br:=0;
      WriteLn('Vavedete 3 polojitelni chisla');
      repeat
    
      ReadLn(x);
      if x>0 then br:=br+1;
      until br=3;
      WriteLn('Gotovo!' );
      ReadLn;
    
    
    end.       
    

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