• На форум требуются модераторы в каждый подраздел раздела Форума об интернете и программировании:


    Возможно создание и другого подраздела специально по той теме или языку в котором вы разбираетесь.

    Требования:
    Адекватность
    Вежливость
    Желание наполнять раздел полезным контентом: модами, гайдами, статьями, новостями, читами (если есть)
    От нас возможно небольшое финансовое поощрение по итогам работы.
    Оплата за каждую интересную полезную созданную тему от 10 до 60 рублей.(В зависимости от полезности и уникальности)


    Писать мне в ЛС http://4cheat.ru/member.php?u=1

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

Статус
В этой теме нельзя размещать новые ответы.
Сообщения
46
Репутация
0
Спасибо
0
program interval;
var a,b,s,n,k,r:integer;
begin
readln(n);
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.
 
Сообщения
62
Репутация
0
Спасибо
0
Слабо помню Pascal, но у вас в цикл while программа вроде не заходит, т. к a=0 изначально.
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху