Question

СРОЧНО НА ПАСКАЛЕ СДЕЛАЙТЕ!!!
Определить количество посетителей салона, которых успеет обслужить мастер-стилист, если его рабочий день составляет t часов и известна продолжительность (в минутах) обслуживания каждого посетителя очереди (вводится пользователем).

Answer 1

Var t,m,k:integer;
begin
write('Введите продолжительность рабочего дня мастера (час) = ');
readln(t);
write('Введите время обслуживания посетителя (мин) = ');
readln(m);
k:=t*60 div m;
writeln('Количество обслуженных посетителей = ',k);
end.