Вывести через программу Паскаль в 4 столбика все четырехзначные числа, которые делятся на сумму своих чисел.
Ответы
Ответ дал:
0
//PascalABC.Net;
//(c) NaaMan;
var
s, k : integer;
begin
k := 1;
for var i := 1000 to 9999 do begin
s := 0;
for var j := 0 to 3 do begin
s += (i div round(power(10, j)) mod 10)
end;
if (i mod s = 0) then begin
write(i, ' ');
if (k mod 4 = 0) then writeln;
k += 1
end
end
end.
//(c) NaaMan;
var
s, k : integer;
begin
k := 1;
for var i := 1000 to 9999 do begin
s := 0;
for var j := 0 to 3 do begin
s += (i div round(power(10, j)) mod 10)
end;
if (i mod s = 0) then begin
write(i, ' ');
if (k mod 4 = 0) then writeln;
k += 1
end
end
end.
Приложения:
![](https://st.uroker.com/files/703/703a6448ec423c96f0e92f049cc536d6.png)
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад