кроссворды, задачки, головоломки

Сборник задач разного уровня сложности по математике, информатике, физике, химии, программированию, экономике etc. Логические задачи, SQL задачи, решение задач. Задачи с ответами, а также нерешённые задачи.

Petruchek.Info

Трёхзначные числа

Добавлено: 10.02.09 в 12:15
Метки: информатика

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

У этой задачи пока что нет ответа/решения. Вы можете прислать свой вариант в комментарии.


Комментарии
Google says:
AID (24.03.09):
1. Ввод значений строкой .
2. Преобразовать всю строку в число.
3. Преобразовать каждый отдельный символ строки в число.
4. Произвести деления исходного числа на каждую цифру, если нет остатка вывести на экран.

PS
Организовать всё через цикл, если есть желание могу прислать проект на Delphi.
   Ответ редакции
Ваше решение фуфловое, оставьте проект себе.
Аноним (17.03.10):
трехзначные числа средняя цифра равна 5 а первая и последняя равна 7 количество чисел
Paxan (16.04.10):
Program chisla;
var i,x1,x2,x3:integer;
BEGIN
for x1:=1 to 9 do
for x2:=1 to 9 do
for x3:=1 to 9 do
begin
i:=x1*100+x2*10+x3;
if (i mod x1=0) and (i mod x2=0) and (i mod x3=0) then writeln (i);
end;
END.

Единственное я не знаю, если в состав числа входит "0", что с этим числом делать записывать как делится всё или как? например число 240, на 2 делится, на 4 делится, а как быть с "0" поидей получается бесконечность, это при условии что если на ноль делить можно, хотя везде сказано, что на ноль делить нельзя.
Аноним (13.05.10):
Помогите плииз!!!
Вывести на экран все трехзначные числа, которые являются четными и не содержат цифры 0, 2 и 8.
топ (26.09.10):
123 132 231 213 321 312
a2kat (07.10.10):
Dim y, nl
For x = 100 To 999 ' будет работать любой диапазон
nl = x
Do
y = nl Mod 10
If y <> 0 Then
If x Mod y = 0 Then
Print x & " " ;
Exit Do
End If
End If
nl = (nl - nl Mod 10) / 10
If nl <= 0 Then Exit Do
Loop
Next
a2kat (07.10.10):
Пардон невнимательно прочитал условия задачи :

Dim y, nl
For x = 100 To 999
nl = x
Do
y = nl Mod 10
If y <> 0 Then
If x Mod y <> 0 Then
Exit Do
End If
Else
Exit Do ' и ноли убираем
End If
nl = (nl - nl Mod 10) / 10
If nl <= 0 Then
ListBox1.Items.Add(x)
Exit Do
End If
Loop
Next
Аноним (14.12.10):
помогите пожалуйста решить..... найти все трёхзначные числа,в которых есть две одинаковые цифры,и вывести их на экран..
Аноним (18.03.11):
помогите пожалуйста! нужно найти все трехзначные числа три последние цифры квадратов которых равны между собой и не равны 0 желательно в delphi.заранее благодарен!
Аноним (04.06.11):
Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).
помогите пожалуйста=)
Дэнчик (05.05.12):
Помогите пожалуйста. Написать тремя способами (For, While и Repeat) программу вывода на экран всех трезначных чисел, кратных 6 и 4, и заканчивающихся на цифру 8.
Artiomtb (27.08.12):
Вот такой цикл)
На С
for(int i=100;i<=999;i++){
if((i%(i/100)==0)&&(i%((i/10)%10)==0)&&(i%(i%10)==0)) printf("%d\n",i);
}
Ann21 (29.10.12):
наименьшее трехзначное число,кратное 3,так, чтоб первая цифра его была 8 и все цифры были бы различны.Существует ли наибольшее трехзначное число,удовлетворяющее данным условиям?
   Ответ редакции
801, 897
Юра01 (29.10.12):
найдите пятизначное число, каждая цифра которого на единицу больше предыдущей, а сумма его цифр равна 30.
   Ответ редакции
Если первая цифра a, то следующие цифры: a+1, a+2, a+3, a+4.

Сумма цифр числа: a+(a+1)+(a+2)+(a+3)+(a+4) = 30, 5*a + 10 = 30, 5a = 20, a = 4

Число: 45678

P.S. Юра/Аня, нам айпи-адреса видны, хватит шифроваться.
Иннокентий мастер кинетических наук (28.05.13):
а слабо вывести на экран все трехзначные цифры так чтобы ни одна цыфра не повторялась в ряду более двухраз (количество столбцов не ограничено)??
   Ответ редакции
В такой постановке - слабо.

Уточните условия задачи, цыпа.
Аноним (24.10.13):
Помогите с задачай по паскалю
Выведите количество трехзначных чисел таких, что их сумма делится на K
   Ответ редакции
Паскаля под рукой нет, так что возможны синтаксические ошибки, но принцип такой:
count := 0;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
begin
if (a+b+c) mod K = 0 then inc(count);
end
writeln(count);
Алло (27.10.16):
С клавиатуры вводится трехзначное число. Проверить есть ои среди его цифр цифры кратные трем. Если есть, то выдать значение этих цифр на экран. Если нет, то выдать на экран сообщение: "Таких цифр нет".
   Ответ редакции
Это не по математике задача, и даже для информатики она слишком простая.

Самое трудное здесь, судя по всему, считать число с клавиатуры. Какой язык, вот это всё?
слава (16.11.16):
помогите решить из последовательности чисел от 10 до 40 вывести те числа которые кратны 6
   Ответ редакции
for (i=12;i<=40;i+=6) print (i);
1 (16.11.16):
помогите решить задачу дано число -стоимость одного кг конфет вычислить стоимость 0,1 кг 0,2 кг и до 1 кг
slava (16.11.16):
ответе на вопрос пожалуйста помогите решить задачу дано число -стоимость одного кг конфет вычислить стоимость 0,1 кг 0,2 кг и до 1 кг
   Ответ редакции
Славик, такие задачи нужно самому решать.

Редакция умеет, она совокупно таких задач решила многие тысячи.

Если редакция решит задачу за тебя, то ты так и не научишься. И редакция не научится (ничему новому).
Комментарий от новенького:
Новенький является
Новенький не робот
Знаки на картинке: латинские буквы, арабские цифры


Есть на сайте: Онлайн кроссворды Задачи Онлайн игры Блог
Все работы, опубликованные на сайте — авторские, если не указано иное. Перепечатка возможна только с письменного разрешения владельцев ресурса, с обязательной ссылкой на сайт petruchek.info. Пишите нам: . Сайт должен работать в IE, FF, Opera, Safari.

Реклама:

Разработано в студии "Webous"о проектесайта карта

Реклама: