// 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.
<u><em>Тестовое решение:</em></u>
10 20
10 12 18 20
4
(5*60*16*64)/1024=(75*2^2*2^4*2^6)/2^10=75*4=300(Мб)
кажется( 1 )
предоставляющая доступ к связанныммежду собой документам, расположенным на различных компьютерах, подключённых к сети Интернет.
program abc;
var a,b,c:integer;
begin
writeln('Заштрихованная область=x,y');
end.