Вопрос Что не так? Это программа для вычисления количества чисел в интервале, сумма цифр которых равна введ

жека · 29 Апр 2016

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 · 29 Апр 2016

Слабо помню Pascal, но у вас в цикл while программа вроде не заходит, т. к a=0 изначально.

Вопрос Что не так? Это программа для вычисления количества чисел в интервале, сумма цифр которых равна введ

жека

антон444

Похожие темы