Найти трёхзначные числа, делящиеся нацело на сумму своих цифр

@Codwoods · Регистрация: 26.02.2016

While Вывести на экран в строку через пробел такие трёхзначные числа, у которых само число делится на сумму цифр его.

@Joy · 26.02.2016, 08:23

Pascal

var
  i,j:integer;
begin
  i:=100;
  while i<1000 do begin
    j:=i div 100+i mod 10+i mod 100 div 10;
    if i mod j=0 then write(i,' ');
    i:=i+1;
  end;
end.

@bormant · 26.02.2016, 09:47

Pascal

var i: Integer;
begin
  for i:=100 to 999 do
    if i mod (i div 100+i mod 10+i div 10 mod 10)=0 then write(' ',i);
end.

Добавлено через 4 минуты
Или

Pascal

var i, j, k: Integer;
begin
  for i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do
    if (i*100+j*10+k) mod (i+j+k)=0 then Write(' ',i,j,k);
end.

Добавлено через 3 минуты
Или, не доверяя оптимизатору,

Pascal

var i, ii, j, jj, k: Integer;
begin
  for i:=1 to 9 do begin
    ii:=i*100;
    for j:=0 to 9 do begin
      jj:=j*10;
      for k:=0 to 9 do
        if (ii+jj+k) mod (i+j+k)=0 then Write(' ',i,j,k);
    end;
  end;
end.

@Codwoods 0 / 0 / 0 Регистрация: 26.02.2016 Сообщений: 5
		1
	Найти трёхзначные числа, делящиеся нацело на сумму своих цифр 26.02.2016, 07:01. Показов 4917. Ответов 2 Метки нет (Все метки) While Вывести на экран в строку через пробел такие трёхзначные числа, у которых само число делится на сумму цифр его. 0

Опции темы

Найти трёхзначные числа, делящиеся нацело на сумму своих цифр

Решение