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

Публикувано на 25 април, понеделник от Данаил

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

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

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

  1. Lubomira каза:
    25 април, понеделник в 16:28 
    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.

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