ПОСТРОЙТЕ БЛОК СХЕМУ К НАПИСАННОЙ ПРОГРАМЕ)))
var a,b,s:intrger
begin
a:=1
b:=2
write a+b<8 do
begin
a:=a+1
b:=b+2
end.
s:=a+b
writeln('s=',s)
end.

​

ГогольВася11    3   14.05.2020 08:47    8