Имеется n кг металлического сплава. из него изготавливают заготовки массой k кг каждая. после этого из каждой заготовки вытачиваются детали массой m кг каждая (из каждой заготовки вытачивают максимально возможное количество деталей). если от заготовок после этого что-то остается, то этот материал возвращают к началу производственного цикла и сплавляют с тем, что осталось при изготовлении заготовок. если того сплава, который получился, достаточно для изготовления хотя бы одной заготовки, то из него снова изготавливают заготовки, из них – детали и т. д. напишите программу, которая вычислит, какое количество деталей может быть получено по этой технологии из имеющихся исходно n кг сплава. на питоне

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.

смотри описание блок схемы на картинке

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.

program yravnenie;

var  a,b,c,d,x1,x2,p,q: real; begin  repeat  write('a= ');   readln(a);   if a=0 then writeln('error: a=0. enter another value');   until a< > 0;   write('b= ');   readln(b);   write('c= ');   readln(c);   p: =b/a;   q: =c/a;   d: =sqr(p/2)-q;   if d> 0 then  begin    writeln('x1 = ',-p/2-sqrt(d): 0: 5);     writeln('x2 = ',-p/2+sqrt(d): 0: 5);   end  else  if d=0 then  writeln('x1 = x2 = ',-p/2: 0: 5)  else  begin    writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5);     writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5);   end;   readln; end.