Парикмахерская, программа Опции

[Дон]

Парикмахерская. Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t – момент его прихода и τ – продолжительность его обслуживания. Сколько клиентов обслужит мастер за смену продолжительностью Т? Сколько рабочего времени он потратит на обслуживание?
Момент прихода и продолжительность обслуживания вводятся пользователем..
Помогите,плизз,если кто может..

[Дон]

Поварьируй c в пределах от 0 до 15 (для фона от 0 до 7).

И цвет фона поменял и текста,только...
Нужно чтобы цвет меняла только надпись "Парикмахерская"..а так как мы вставляем оператор textcolor после begin,то цвет меняет весь текст в программе...
я думал что-то получится,если напишу так:

Код

begin
TextColor(2);
Write('Парикмахерская');
end;

то есть отдельным циклом...но не вышло..как поступить?

Плохо выглядит вывод времени в долях часа..

действительно плохо..как этого можно избежать?

[Lapp]

Код

begin
TextColor(2);
Write('Парикмахерская');
end;

то есть отдельным циклом...но не вышло..как поступить?
действительно плохо..как этого можно избежать?

Это не цикл.. Циклы - это три конкретных оператора: for, while, repeat. А begin и end - это так называемые "операторные скобки", они превращают группу операторов в как бы один. Но только тут они не нужны. Все, что тебе нужно - это после написания сменить цвет обратно:

Код

TextColor(2);
Write('Парикмахерская');
TextColor(7);

Что касается форматирования времени под вывод минут, то это можно сделать примерно так..

Сначала берешь целую часть времени в часах (это сколько часов), потом дробную часть умножаешь на 60 и округляешь (это минуты).

var Hour,Min:integer;
....
  Hour:=Trunc(t);
  Min:=Round(Frac(t)*60);
  WriteLn('Время ',t :2 :4,' соответствует  ', Hour,' час ',Min,' мин');

Этот вариант все же грешит тем, что выводит минуты без нулей. Поэтому если хочешь организовать стандартный вывод Час:Мин (через двоеточие), то надо добавлять печать нуля, если минут меньше 10 (то есть чтоб было 12:02, а не 12:2 )

var
  Hour,Min:integer;
  Ziro:string[1];
....
  Hour:=Trunc(t);
  Min:=Round(Frac(t)*60);
  if Min<10 then Ziro:='0' else Ziro:='';
  WriteLn('Время ',t :2 :4,' соответствует  ', Hour,':',Ziro,Min);

И напоследок, поскольку у тебя в программе вывод времени делается много раз, то лучше засунуть это все в процедуру.