Question

Задача на Паскале. В бригаде, работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая последующая на 10 минус дольше предыдущей. Сколько часов работала бригада?

Answer 1

Program    cosilka;
const    dopvrem=0.6;
var
      i:integer;
      N:integer;
      m:integer;
      brigada:real;
begin
writeln('Введите количество сенокосилок:');
readln(N);
writeln('Введите количество часов у первой сенокосилки:');
readln(m);
brigada:=m;
for i:=1 to N do brigada:=brigada+dopvrem;
writeln('Ответ:', brigada:3:1,''часов'':3);
End.

Answer 2

Для решения этой задачи на Паскале можно использовать следующий код:

program Senokosilki;

var
  N, m, i, totalHours: integer;
  currentHours: real;

begin
  writeln('Введите количество сенокосилок N: ');
  readln(N);
  writeln('Введите количество часов работы первой сенокосилки m: ');
  readln(m);
  
  totalHours := m;
  currentHours := m;
  
  for i := 2 to N do
  begin
    currentHours := currentHours - 10/60;
    totalHours := totalHours + round(currentHours);
  end;
  
  writeln('Бригада работала ', totalHours, ' часов');
end.

Этот код сначала запрашивает у пользователя количество сенокосилок N и количество часов работы первой сенокосилки m. Затем он использует цикл for, чтобы вычислить количество часов работы каждой сенокосилки и общее количество часов работы бригады. В конце программа выводит результат на экран.

Например, если пользователь вводит N=5 и m=3, то программа выведет "Бригада работала 13 часов".