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.

Постройте блок-схему к программе

ystefaniv    3   28.04.2020 19:50    2