ДАЮ 60 БАЛЛОВСтудент Василий живет в общежитии. Отделение банка, в котором
ДАЮ 60 БАЛЛОВ
Студент Василий живет в общежитии. Отделение банка, в котором он производит оплату за проживание, имеет всего две кассы, потому практически всегда длинная очередь к ним. 1-ая касса раскрывается в 8.00, 2-ая в 8.05. Последний клиент будет принят в 20.00. Очередь единая, и очередной клиент обслуживается, как только освобождается одна из касс. На сервис одного клиента уходит ровно 10 минут. Василий прибывает ровно в 8.00 и лицезреет, сколько человек стоит перед ним. Нужно определить, сколько времени ему придется простоять в очереди, и вообщем обслужат ли его сейчас.
Помогите пожалуйста очень срочно
Сделать в паскале и выстроить блок-схему
program raf105;
var
people,time,o1,o2:integer;
begin
write('Сколько человек увидел василий: ');
readln(people);
while peoplelt;gt;0 do
begin
time+= 1;
if peoplegt;0 then
begin
if o1=10 then
begin
people-=1;
o1:=0;
end;
o1+=1;
end;
if (peoplegt;0) and (timegt;=5) then
begin
if o2=10 then
begin
people-=1;
o2:=0;
end;
o2+=1;
end;
end;
time-=1;
if timelt;=720 then
writeln('Василию придётся простоять в очереди ',time div 60,' ч. ',time mod 60,' мин.')
else
writeln('Василия не обслужат сейчас');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.