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

Публикувано на 05 октомври, сряда от Данаил

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

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

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

  1. svetlieti каза:
    07 октомври, петък в 17:34 
    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.

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