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

Разминка для мозгов » Задачи » Трёхзначные числа

Добавлено: 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 кг

Ответ редакции:

Славик, такие задачи нужно самому решать.

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

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

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

Petruchek.Info

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