Ревизия на склад

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

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

2 коментара по Ревизия на склад

  1. svetlieti каза:
    program Project1;
    type
      TSustoqnie=(MnLosho=1,Losho,Dobro,Mndobro,Otlichno);
    var
      Stoka:Tsustoqnie;
      i, br, N, BrS:integer;
    begin
      BrS:=0;
      Writeln('Vavedete broq stoki: ');
      Readln(br);
      Writeln('Vavedete sustoqnieto na stokata (1) za MnLosho do (6) za Otlichno');
      for i:= 1 to br do
       begin
        Readln(N);
        Stoka:=TSustoqnie(N);
        if Stoka<Dobro then
          BrS:=BrS+1;
       end;
      Writeln('Broq na stokite, koito trqbva da se brakuvat sa: ',BrS);
      Readln;
    
    end.
    

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