Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 04.02.2013
Сообщений: 6
1

Найти все трехзначные числа, которые делятся на каждую из цифр в их записи

04.02.2013, 17:15. Показов 2433. Ответов 5
Метки нет (Все метки)

Найти все трехзначные числа, которые делятся на каждую из цифр в их записи.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2013, 17:15
Ответы с готовыми решениями:

Найти все трехзначные числа, которые делятся на каждую из цифр в их записи!
хелп! Найти все трехзначные числа, которые делятся на каждую из цифр в их записи!

Найти все трехзначные числа, которые делятся на каждую из цифр в их записи
найти все трехзначные числа,которые делятся на каждую из цифр в их записи

Найти и вывести все трёхзначные числа, которые которые делятся на каждую из своих цифр
Найти и вывести все трёхзначные числа, которые которые делятся на каждую из своих цифр. На ноль...

Найти все такие М-значные числа, которые делятся на каждую из цифр в их записи
Найти все такие М-значные числа (М=2,3...), которые делятся на каждую из цифр в их записи. ...

5
41 / 31 / 5
Регистрация: 03.02.2013
Сообщений: 61
04.02.2013, 23:47 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i,j,k,t:longword;
begin
for i:=1 to 9 do
  for j:=1 to 9 do
    for k:=1 to 9 do
      begin
    t:=i*100+j*10+k;
    if(t mod i=0) and (t mod j=0) and (t mod k =0) then
      writeln(t);
      end;
end.
что сложного, что бы сразу бежать на пхорум?
0
Модератор
1638 / 1088 / 487
Регистрация: 17.07.2012
Сообщений: 5,339
05.02.2013, 00:11 3
TakeOver,а не проще в одном цикле?
Pascal
1
2
3
4
5
6
7
8
9
10
var i,j,k,t:Integer;
begin
for t:=100 to 999 do
begin
i:=t div 100;
j:=t div 10 mod 10;
k:=t mod 10;
if (t mod i=0) and (t mod j=0) and (t mod k =0) then Writeln(t);
end;
end.
Добавлено через 1 минуту
Хотя твой метод интереснее,я привык так решать...
0
73 / 73 / 64
Регистрация: 21.01.2013
Сообщений: 147
05.02.2013, 02:04 4
Цитата Сообщение от Андрей_Новичок Посмотреть сообщение
TakeOver,а не проще в одном цикле?
Ни в коем случае
1
41 / 31 / 5
Регистрация: 03.02.2013
Сообщений: 61
05.02.2013, 09:20 5
Цитата Сообщение от Андрей_Новичок Посмотреть сообщение
TakeOver,а не проще в одном цикле?
Pascal
1
2
3
4
5
6
7
8
9
10
var i,j,k,t:Integer;
begin
for t:=100 to 999 do
begin
i:=t div 100;
j:=t div 10 mod 10;
k:=t mod 10;
if (t mod i=0) and (t mod j=0) and (t mod k =0) then Writeln(t);
end;
end.
Добавлено через 1 минуту
Хотя твой метод интереснее,я привык так решать...
во-первых у тебя оно сразу же рухнет из-за деления на ноль.
мой код делает 9*9*9 итераций = 729, твой 899.
0
Модератор
1638 / 1088 / 487
Регистрация: 17.07.2012
Сообщений: 5,339
05.02.2013, 17:52 6
TakeOver,спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.02.2013, 17:52

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

Найти все натуральные числа, которые делятся на каждую из своих цифр
Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр....

Найти все натуральные числа, не превосходящие заданного числа n, которые делятся на каждую из своих цифр
помогите составить программу на языке паскаль Найти все натуральные числа, не превосходящие...

Найти все натуральные числа в диапазоне [a, b], которые делятся на каждую из своих цифр
Найти все натуральные числа в диапазоне , которые делятся на каждую из своих цифр.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.