Var a,b,s:integer;begina:=1;b:=2;while a+b<8 dobegina:=a+1;b:=b+2;end;s:=a+b;writeln ('s=', s)end.Постройте блок-схему к программе,СРОЧНО
Ответ:
привет, блок схема на фото