Question

PASCAL ABC
Автомат отпускает максимум N единиц товара по Z рублей за
одну единицу и выдает сдачу. У каждого покупателя S рублей. Составить программу обслуживания автоматом очереди из K
покупателей.

Answer 1

Ответ:

var n,z,s,k,i,p,rez1,rez2:integer;

   

begin  

     write ('Кол-во покупателей = ');

     readln (k);

     write ('Стоимость товара за 1 шт = ');

     readln (z);

     write ('Количество товара = ');

     readln (n);

     write ('Денег у каждого покупателя = ');

     readln (s);

     

     for i:=1 to k do

     begin

          //сколько мы можем продать - n

                     

          Randomize;

          n:= Random(6);

           

          if (n>=p) and (p*z<=s) then  

          begin

               rez2:=s-p*z;//сдача

               n:=n-p;//осталось товара

               writeln('сдача ',i,'-му покупателю ',rez2);

         end

         else  

         begin

              writeln('Не хватает товара или денег');// на случаи сделать

              break;

         end;

     end;

end.