придумайте задачу модель решения которой может быть представлена следующей блок схемой

Question

придумайте задачу модель решения которой может быть представлена следующей блок схемой

---

Answer 1

Program z1;
var s,p,d:real;
begin
s:=15;
p:=3;
while p*s>=0 do
s:=s-2;
d:=s+p;
writeln (d);
end.