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.

как войти в этот режим?

Можно и без a= b=, но вроде тоже логика есть)