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