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

VAR  i,k,k1,j,h:integer;
s,d:real;
begin
i:=3;
k:=12;
k1:=42;
j:=67;
for h:=1 to 26 do begin

s:=s+k;
  k:=k+3;
  end;
 d:=(k1*100)/j;
 s:=s/26;
 if d<=s then writeln('выполнит')
 else writeln('нет');
 end.

Похожие записи/страницы:

Leave a Comment

+ 23 = 31