Составьте программу для решения следующей . цех - вопрос №4471664 от Liza111333 31.03.2021 09:55

Question

Информатика: Составьте программу для решения следующей . цех по ремонту бытовой техники имеет ежедневно прибыль р, с которой платит налог 70%. из оставшейся доли прибыли 30% идёт на развитие производства, а остальное — на заработную плату 8 работникам. выведите среднемесячную зарплату работника. все исходные данные введите с клавиатуры. ответ прикрепите в виде файла в среде pascalabc.

Liza111333 · Answer

//Пишу с телефона, возможны ошибки
Var p,a,b,c,d:real;
begin;
Writeln('Z/p');
Readln(p);
Writeln('1-st procent');
readln(a);
Writeln('2-st procent');
readln(b);
Writeln('Workers');
Readln(c);
d:=p/100*(100-a);
d:=d/100*(100-b);
d:=d/c;
Writeln('For every worker:',d);
end.