жека Ж жека Регистрация 4 Апр 2013 Сообщения 71 Репутация 0 Спасибо 0 Монет 0 29 Апр 2016 #1 program interval; var a,b,s,n,k,r:integer; begin readln; b:=0; r:=0; while((a>=100)and(a<=999)) do begin while(a<>0) do begin k:=(a mod 10); a:=(a div 10); b:=b+k; if(b=k) then writeln(r); r:=r+1; end; end; end.
program interval; var a,b,s,n,k,r:integer; begin readln; b:=0; r:=0; while((a>=100)and(a<=999)) do begin while(a<>0) do begin k:=(a mod 10); a:=(a div 10); b:=b+k; if(b=k) then writeln(r); r:=r+1; end; end; end.
антон444 А антон444 Регистрация 6 Ноя 2013 Сообщения 97 Репутация 0 Спасибо 0 Монет 0 29 Апр 2016 #2 Слабо помню Pascal, но у вас в цикл while программа вроде не заходит, т. к a=0 изначально. Позитивный голос 0