Решить задачу на языке программирования Pascal. В текущем месяце бригада в каждый последующий день работы выпускала на три изделия больше, чем в предыдущий. В первый день было выпущено 42 изделия, что составило 67% дневной нормы. В месяце 26 рабочих дней. Сумеет ли бригада выполнить месячную норму?

6 Мая 2019 в 19:44
351 +1
0
Ответы
1

Program brigada;

var
day, n, norm, total, percent: integer;
flag: boolean;

begin
day := 1;
n := 42;
norm := 0;
total := 0;
flag := true;

while day <= 26 do
begin
total := total + n;
norm := norm + total;
percent := round((total / norm) * 100);

if percent >= 67 then
begin
n := n + 3;
flag := true;
end
else
begin
flag := false;
break;
end;
day := day + 1;

end;

if flag then
writeln('Бригада сможет выполнить месячную норму')
else
writeln('Бригада не сможет выполнить месячную норму');
end.

28 Мая 2024 в 16:48
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир