Ж жека Регистрация 4 Апр 2013 Сообщения 67 Репутация 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 Регистрация 6 Ноя 2013 Сообщения 83 Репутация 0 Спасибо 0 Монет 0 29 Апр 2016 #2 Слабо помню Pascal, но у вас в цикл while программа вроде не заходит, т. к a=0 изначально. Позитивный голос 0