Три отрицателни

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

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

3 коментара по Три отрицателни

  1. Viktoria Velichkova каза:
     
    program Project1;
    var
     x, br:integer;
    begin
      WriteLn('Vavejdaite polojitelni i otricatelni chisla');
      br:=0;
      repeat
        ReadLn(x);
      if x<0 then
      br:= br+1
      until br=3;
      WriteLn('Veche vavedohte 3 otricatelni chisla');
      ReadLn;
    end. 
    
  2. Lubomira каза:
    program 3 otricatelni;
    var
    chislo, Br : integer ;
    begin
    Br:=0 ;
    repeat
    WriteLn ('Vuvedete chislo:') ;
    ReadLn(chislo) ;
    If chislo<0 then
    Br:= Br+1 ;
    until Br=3 ;
    WriteLn ('Vie vuvedohte 3 otricatelni chisla');
    ReadLn ;
    end.
    
  3. svetlieti каза:
    program Project1;
    var
      br, chislo:integer;
    begin
      Writeln('Vavedi razlichni chisla');
      br:=0;
    
      repeat
        Readln(chislo);
        if chislo<0 then
         br:=br+1;
      until br=3 ;
    
      Writeln('Bravo!!! Vie vavedohte 3 otricatelni chisla');
      Readln;
    end.
    

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