Найти все натуральные числа, которые лучше заданного и меньше его

@азазин · Регистрация: 21.11.2016

Author24 — интернет-сервис помощи студентам

число а лучше б, если сумма цифр а больше суммы цифр числа б, а в случае равенства сумм цифр, если число а меньше числа б.

@vint-81 · 21.11.2016, 20:09

Pascal

var i,n:longint;f:boolean;
function lu(a,b:longint):boolean;
  function sum(x:longint):byte;
   begin
    if x>0 then sum:=x mod 10 + sum(x div 10)
   end;
 begin
  lu:=(sum(a)>sum(b))or((sum(a)=sum(b))and(a<b))
 end;
begin
 write('введите число: ');readln(n);
 f:=false;
 for i:=1 to n do if lu(i,n) then begin write(i,' ');f:=true end;
 if not f then writeln('---')
end.

@азазин 0 / 0 / 0 Регистрация: 21.11.2016 Сообщений: 27
		1
	Найти все натуральные числа, которые лучше заданного и меньше его 21.11.2016, 18:34. Показов 2121. Ответов 1 Метки нет (Все метки) число а лучше б, если сумма цифр а больше суммы цифр числа б, а в случае равенства сумм цифр, если число а меньше числа б. 0

	21.11.2016, 20:09

Найти все натуральные числа, которые лучше заданного и меньше его

Решение