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

@Mr.Spock · Регистрация: 31.03.2010

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

@Puporev · 20.10.2010, 13:40

Pascal

uses crt;
procedure Summa(a:longint;var s:byte);
var b:longint;
begin
b:=a;
s:=0;
while b>0 do
 begin
  s:=s+b mod 10;
  b:=b div 10;
 end;
end;
var a,b,i,x:longint;
    k,sm:byte;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа, второе больше первого:');
readln(a,b);
until(a>0)and(b>a);
write('Введите число для сравнения сумм цифр x=');
readln(x);
k:=0;
writeln('Числа из интервала [',a,',',b,'] сумма цифр которых больше ',x);
for i:=a to b do
 begin
  Summa(i,sm);
  if sm>x then
   begin
    k:=1;
    write(i,' ');
   end;
 end;
if k=0 then write('Таких чисел нет');
readln
end.

@Mr.Spock 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 32
		1
	Дан натуральный отрезок чисел [A,B].Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х. 20.10.2010, 12:55. Показов 7099. Ответов 1 Метки нет (Все метки) Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х. Проверку, является ли сумма цифр данного числа больше заданного числа Х, сделать с помощью процедуры пользователя 0

Опции темы

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

Решение