Найти все целые числа из интервала от N до M, которые делятся на сумму всех своих цифр

@katy6587 · Регистрация: 12.11.2017

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

@Puporev · 24.11.2017, 18:23

Pascal

var n,m,i,a,s,k:integer;
begin
repeat
writeln('Введите диапазон натуральных чисел 0<n<m');
readln(n,m);
until (n>0)and(m>n);
writeln('Числа, которые делятся на сумму своих цифр');
k:=0;
for i:=n to m do
 begin
  a:=i;
  s:=0;
  while a>0 do
   begin
    s:=s+a mod 10;
    a:=a div 10;
   end;
 if i mod s=0 then
  begin
   k:=1;
   write(i,' ');
  end;
 end;
if k=0 then write('Таких чисел нет');
end.

@katy6587 0 / 0 / 0 Регистрация: 12.11.2017 Сообщений: 21
		1
	Найти все целые числа из интервала от N до M, которые делятся на сумму всех своих цифр 24.11.2017, 16:54. Показов 5059. Ответов 1 Метки нет (Все метки) Найти все целые числа из интервала от N до M, которые делятся на сумму всех своих цифр 0

	24.11.2017, 18:23

Найти все целые числа из интервала от N до M, которые делятся на сумму всех своих цифр

Решение