Работаем в Pascal ABC.Net На промежутке от a до b найти все числа и их количество(k), которые делятся на сумму(s) своих цифр. Тест: 10 20 10 12 18 20 4
Работаем в 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.
Тестовое решение:
10 20
10 12 18 20
4
Не нашли ответ?
Похожие вопросы