Работаем в pascal abc.net на промежутке от a до b найти все числа и их количество(k), которые делятся на сумму(s) своих цифр. тест: 10 20 10 12 18 20 4
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var a,b:integer; Read(a,b); var k:=0; for var i:=a to b do begin var n:=i; var s:=0; while n<>0 do begin s+=n mod 10; n:=n div 10 end; if i mod s = 0 then begin Write(i,' '); Inc(k) end end; Writeln(#13#10,k) end.
begin
var a,b:integer;
Read(a,b);
var k:=0;
for var i:=a to b do begin
var n:=i;
var s:=0;
while n<>0 do begin
s+=n mod 10;
n:=n div 10
end;
if i mod s = 0 then
begin Write(i,' '); Inc(k) end
end;
Writeln(#13#10,k)
end.
Тестовое решение:
10 20
10 12 18 20
4