Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Pascal ABC
Задача с while, for, if.
На промежутке от a до b найти все числа и их количество(k), которые делятся на сумму(s) своих цифр.
Тест:
10 20
10 12 18 20
4

Ответ оставил Гость

Var
 a,b,i,j,k,s:integer;
begin
 write(a=); readln(a);
 write(b=); readln(b);
 k:=0;
 for i:=a to b do
  begin
   j:=i;
   s:=0;
   while (j>0) do
    begin
     s:=s+(j mod 10);
     j:=j div 10;
    end;
   if (i mod s)=0 then
    begin
     write(i, );
     inc(k);
    end;
  end;
 writeln;
 writeln(k=,k);
end.