60 студент василий живет в общежитии. отделение банка, в котором он производит оплату за проживание, имеет всего две кассы, поэтому почти всегда длинная очередь к ним. первая касса открывается в 8.00, вторая – в 8.05. последний клиент будет принят в 20.00. очередь единая, и очередной клиент обслуживается, как только освобождается одна из касс. на обслуживание одного клиента уходит ровно 10 минут. василий приходит ровно в 8.00 и видит, сколько человек стоит перед ним. требуется определить, сколько времени ему придется простоять в очереди, и вообще обслужат ли его сегодня. сделать в паскале и построить блок-схему
пвиопп
2
08.05.2019 12:44
63
Другие вопросы по теме Информатика
2313455345
01.10.2019 23:40
nairisaaryan
01.10.2019 23:40
olga000064
01.10.2019 23:40
tigranchik111111
05.07.2019 11:00
1gs1221
05.07.2019 11:00
nastia311
25.08.2019 16:40
ksuz
25.08.2019 16:40
MokrovaDiana
25.08.2019 16:40
qahhor
11.07.2019 10:40
Популярные вопросы
- Здійснити перетворення , останнб реакцію написати в йонній формі...
2 - Определите степень полимеризации полиизобутилена, молекулярная масса...
1 - Умоляю обьясниме что такое гектар и ар...
1 - Где в этих предложениях ошибка? к две тысячи двенадцатому году....
2 - Составить программу вывода на экран расписания уроков на день (любые...
2 - 1. в каком ряду в обоих словах пропущена одна и та же буква? 1....
1 - {х^2-у^2=-3,х-у=3; {х^2-4ху+у^2=6,у-2х=3;...
3 - На координатной прямой точки a, b, c и d соответветствуют числам...
3 - Что является обьектом восприятия, а что- фоном?...
2 - Умоляю ответьте на вопрос что такое гектор и ар ( поподробнее)...
1
program raf105;
var
people,time,o1,o2:integer;
begin
write('Сколько человек увидел василий: ');
readln(people);
while people<>0 do
begin
time+= 1;
if people>0 then
begin
if o1=10 then
begin
people-=1;
o1:=0;
end;
o1+=1;
end;
if (people>0) and (time>=5) then
begin
if o2=10 then
begin
people-=1;
o2:=0;
end;
o2+=1;
end;
end;
time-=1;
if time<=720 then
writeln('Василию придётся простоять в очереди ',time div 60,' ч. ',time mod 60,' мин.')
else
writeln('Василия не обслужат сегодня');
end.