Работаем в Pascal ABC.Net
На промежутке от a до b найти все числа и их количество(k), которые делятся на сумму(s) своих цифр.
Тест:
10 20
10 12 18 20
4
Ответы на вопрос
Ответил Аноним
0
// 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.
Тестовое решение:
10 20
10 12 18 20
4
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
Ответил Аноним
0
Ну тогда просто посмотрите мое решение с объяснением: http://znanija.com/task/16584828
Ответил DexelGamer
0
Шок-скандал-истерика...
Ответил DexelGamer
0
Ладно, пойду спать. Полночь у меня уже.
Новые вопросы