Предмет: Информатика,
автор: Всеникиужесуществуют
Решить задачу на языке программирования Pascal.
В текущем месяце бригада в каждый последующий день работы выпускала на три изделия больше, чем в предыдущий. В первый день было выпущено 42 изделия, что составило 67% дневной нормы. В месяце 26 рабочих дней. Сумеет ли бригада выполнить месячную норму?
Ответы
Автор ответа:
0
var
i:integer;
answer:integer;
n:integer;
begin
answer:=42;
n:=Trunc(42/67)*100;
for i:=1 to 26 do
begin
answer:=answer+3;
if answer then Writeln(i,'Бригада не выполнила норму')
else Writeln(i,'Бригада выполнила норму');
end;
end.
i:integer;
answer:integer;
n:integer;
begin
answer:=42;
n:=Trunc(42/67)*100;
for i:=1 to 26 do
begin
answer:=answer+3;
if answer then Writeln(i,'Бригада не выполнила норму')
else Writeln(i,'Бригада выполнила норму');
end;
end.
Интересные вопросы
Предмет: Математика,
автор: dimondima55
Предмет: Обществознание,
автор: taehyung42
Предмет: Биология,
автор: zuhrae941
Предмет: История,
автор: Сашенькааa
Предмет: Химия,
автор: argard