Составьте блок схему программы: var i,j,m: integer; s,s1,res,check: integer; begin i: =10; while i< =99 do begin m: =i; s: =0; check: =0; while m> 0 do begin s: =s + m mod 10; m: =m div 10; end; m: =i; for j: =2 to 9 do begin res: =m*j; s1: =0; while res> 0 do begin s1: =s1+res mod 10; res: =res div 10; end; if s=s1 then inc(check); end; if check=8 then writeln('naideno chislo-> ',i); inc(i); end; readln; end.​

Gucci99    3   15.05.2019 13:56    1