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.

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

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку