Составьте блок схему программы: var i,j,m:integer; ...
Составьте блок схему программы: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.
Нет ответа
12.12.2022
417