Вывести шестизначные числа, которые делятся без остатка на сумму квадратов своих цифр

@Kss · Регистрация: 29.03.2013

Author24 — интернет-сервис помощи студентам

Вывести в 10 столбиков все шестизначные числа, которые делятся без остачи на на сумму квадратов своих чисел.

@Puporev · 06.06.2015, 10:28

Для Турбо Паскаля, но будет работать и в других.

Pascal

uses crt;
function summa(n:longint):integer;
var m,s:longint;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+sqr(m mod 10);
  m:=m div 10 ;
 end;
summa:=s;
end;
 
var i,j,k:longint;
begin
clrscr;
j:=1;
k:=0;
for i:=100000 to 999999 do
if i mod summa(i)=0 then
 begin
  j:=j+1;
  write(i:7);
  if j=7 then
   begin
    writeln;
    j:=1;
    k:=k+1;
    if k mod 20=0 then
     begin
      write('Нажмите Enter');
      readln;
     end;
   end;
 end;
readln;
end.

@Kss · 06.06.2015, 10:38 **[ТС]**

Спасибо огромное! Очень помог

@Puporev · 06.06.2015, 10:41

Неправильно написал, нужно в 10 столбиков, а я в 6...

Добавлено через 1 минуту
Замени в строке 25 7 на 11

@Kss 0 / 0 / 1 Регистрация: 29.03.2013 Сообщений: 23
		1
	Вывести шестизначные числа, которые делятся без остатка на сумму квадратов своих цифр 06.06.2015, 09:48. Показов 5279. Ответов 3 Метки нет (Все метки) Вывести в 10 столбиков все шестизначные числа, которые делятся без остачи на на сумму квадратов своих чисел. 0

@Kss 0 / 0 / 1 Регистрация: 29.03.2013 Сообщений: 23
	06.06.2015, 10:38 [ТС]	3
	Спасибо огромное! Очень помог 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	06.06.2015, 10:41	4
	Неправильно написал, нужно в 10 столбиков, а я в 6... Добавлено через 1 минуту Замени в строке 25 7 на 11 0

Вывести шестизначные числа, которые делятся без остатка на сумму квадратов своих цифр

Решение