Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х

@ZheniaStar · Регистрация: 03.01.2013

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.

@CodeR · 04.01.2013, 09:11

Pascal

Var a,b,i,x,s,t:integer;
Begin
    write('A = ');readln(a);
    write('B = ');readln(b);
    write('X = ');readln(x);
    For i:=a to b do
    Begin
      s:=0;t:=i;
      While t>0 do
      Begin
        s:=s+t mod 10;
        t:=t div 10;
      End;
      if s>x then write(i,' ');
    End;
    readln;
 End.

@ZheniaStar 0 / 0 / 0 Регистрация: 03.01.2013 Сообщений: 23
		1
	Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х 03.01.2013, 20:06. Показов 1867. Ответов 1 Метки нет (Все метки) Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х. 0

Опции темы

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х

Решение