* Дали сме споменали дадено числo

Да се напише програма, която позволява въвеждане на дадено число и после на други числа до въвеждане на 0 и отпечатва дали сред тях е било споменато първото число. Ако да,  да се отпечата и колко пъти.

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

2 коментара по * Дали сме споменали дадено числo

  1. Lubomira каза:
    program Project1;
     var
       x,chislo,Br :integer ;
    
    begin
      WriteLn('Vuvedete x:') ;
      ReadLn(x) ;
      Br:=0 ;
    repeat
    WriteLn('Vuvedete chislo:') ;
    ReadLn(chislo)  ;
    if x=chislo then
    Br:=Br+1 ;
    until chislo = 0 ;
    WriteLn('Broya na x w chislata e =',Br) ;
    ReadLn ;
    end.
    
                              

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