Question

СРОЧНОООО pascal ЛАЗАРУС

Побудуйте математичну модель і складіть проект для визначення, за скіль ки годин робітник виконає план в Х деталей, якщо за першу годину роботи він виготовив У деталей, а за кожну наступну годину виготовляє на 1 де таль більше, ніж за попередню.​

Answer 1

program Workshop;

var

 U, X, t, n: integer;

begin

 writeln('Введіть кількість деталей, яку потрібно виготовити: ');

 readln(X);

 writeln('Введіть кількість деталей, виготовлених за першу годину: ');

 readln(U);

 t := 1;

 n := U;

 while n < X do

 begin

   t := t + 1;

   n := U * t + (t * (t - 1)) div 2;

 end;

 writeln('Робітник виконає план в ', t, ' годин');

end.