Сделать в Free Pascal. В салон красоты пришло n девушек. Каждая из них должна посетить парикмахера и косметолога. У каждого она проводит по m часов. За какое наименьшее время k сотрудников салона красоты смогут обслужить всех девушек, если каждый сотрудник может выполнять функции как косметолога, так и парикмахера? Входные данные три натуральных числа k, m, n( все числа не больше 10 000). Исходные данные одно число – минимальное время в часах, которое требуется для обслуживания всех девушек.
Begin write('n m k через пробел: '); readln(n,m,k); s:=2*n*m; p:=0; repeat s:=s-k*2*m; p:=p+1; until s<=0;<br> p:=p*2*m; writeln('время: ',p); end. n m k через пробел: 3 2 5 время: 4 n m k через пробел: 6 2 4 время: 8
Извените можете с файлами зделать
Чтение из файла, запись в файл? Имя входного файла и имя выходного файла?
var k,m,n,p,s: integer; f: text; begin assign(f,'input.txt'); reset(f); readln(f,k,m,n); close(f); s:=2*n*m; p:=0; repeat s:=s-k*2*m; p:=p+1; until s<=0;<br> p:=p*2*m; assign(f,'output.txt'); rewrite(f); writeln(f,p); close(f); end.