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

Ответы на вопрос

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.



Для решения этой задачи на Паскале можно использовать следующий код:
```pascal 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 часов".


Топ вопросов за вчера в категории Информатика








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili