Версия для печати темы

Автор: clack 24.04.2012 17:39

Определить количество посетителей салона, которых успеет обслужить мастер-стилист, если его рабочий день составляет t часов и известна продолжительность (в минутах) обслуживания каждого посетителя очереди (вводится пользователем).
Такая вот задача.Последняя работа по Паскалю,не знаю,как ее сделать.
Знаю только,что решать через цикл While <условие> DO <Тело цикла>
Заранее спасибо!

Автор: Lilu 24.04.2012 22:08

Не совсем понятно, время обслуживания нужно вводить отдельно для каждого посетителя? Если да, то наверное как-то так:

uses crt;
var t, min, k: integer;
begin
clrscr;
     write ('Prodolzhitelnost rab dnya (v chasah): '); readln (t);
     t:=t*60;
     while t >0 do
           begin
                k:=k+1;
                write ('Vremya obsluzhivaniya ', k,'-go posetitelya (v minutah): '); readln (min);
                t:=t-min;
           end;
     if t<0 then k:=k-1;
     writeln ('Za den stilist obsluzit ', k, ' chelovek');
readkey;
end.

Автор: clack 25.04.2012 1:19

Цитата(Lilu @ 24.04.2012 19:08)

uses crt;
var t, min, k: integer;
begin
clrscr;
     write ('Prodolzhitelnost rab dnya (v chasah): '); readln (t);
     t:=t*60;
     while t >0 do
           begin
                k:=k+1;
                write ('Vremya obsluzhivaniya ', k,'-go posetitelya (v minutah): '); readln (min);
                t:=t-min;
           end;
     if t<0 then k:=k-1;
     writeln ('Za den stilist obsluzit ', k, ' chelovek');
readkey;
end.

Автор: can you buy zithromax in south a 25.09.2021 18:43

Buy Levothyroxine 88 Mcg