Вопрос по информатике:
Решить задачу на языке программирования Pascal.
В текущем месяце бригада в каждый последующий день работы выпускала на три изделия больше, чем в предыдущий. В первый день было выпущено 42 изделия, что составило 67% дневной нормы. В месяце 26 рабочих дней. Сумеет ли бригада выполнить месячную норму?
- 11.07.2018 03:44
- Информатика
- remove_red_eye 10085
- thumb_up 19
Ответы и объяснения 2
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.
- 12.07.2018 09:19
- thumb_up 38
Var i,x,s,n:integer;
begin
x:=42;
n:=round(42/67*100)*26;
for i:=1 to 26 do
begin
s:=s+x;
x:=x+3;
end;
writeln('Норма: ',n);
writeln('Сделано: ',s);
if s>=n then writeln('Норма выполнена')
else writeln('Норма не выполнена');
end.
- 14.07.2018 00:55
- thumb_up 51
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.