Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.94
Роза
32 / 32 / 0
Регистрация: 25.05.2010
Сообщений: 80
#1

Определить, сколько четырехзначных чисел делится на 13 и при этом не делится на 2, 3 и 5. - Delphi

21.01.2011, 12:39. Просмотров 2239. Ответов 3
Метки нет (Все метки)

Определить, сколько четырехзначных чисел делится на 13 и при этом не делится на 2, 3 и 5.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2011, 12:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, сколько четырехзначных чисел делится на 13 и при этом не делится на 2, 3 и 5. (Delphi):

Определить количество четырехзначных чисел, сумма цифр которых делится нацело на 2 и 3 - Delphi
Определить количество четырехзначных чисел, сумма цифр которых делится нацело на 2 и 3.

Определить, делится ли число нацело на 7 и делится ли на 3 - Delphi
помогите решить ребят((((я так устала(( 1.Задано четырехзначное целое число. Делится ли оно нацело на 7 и делится ли на 3? Составить...

Определить, сколько из данных 5 цифр делится на 5 с остатком (с if и case) - Delphi
Дано 5 цифр, сколько из них делится на 5 с остатком.

Однокдеточная амеба каждые 3 часа делится на 2 клетки.Определить,сколько клеток - Delphi
Оформите эту задачу в виде GUI приложений. буду очень благодарен ребята помагите пожалуйста Однокдеточная амеба каждые 3 часа...

Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8 - Delphi
Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8.

делится ли заданное число на а и не делится на b - Delphi
Определить делится ли задоное число на а и ни делится на б

3
Остап Бендер
12 / 12 / 2
Регистрация: 17.11.2010
Сообщений: 143
21.01.2011, 12:57 #2
Delphi
1
2
3
4
5
6
7
8
9
10
var chislo,k: integer;
begin
k:=0;
for chislo:=1000 to 9999 do
if ((chislo)mod(13)=0 ) and ((chislo)mod(2)<>0 )
and ((chislo)mod(3)<>0) and ((chislo)mod(5)<>0) then
k:=k+1;
writeln('×åòûðåõçГ*Г*Г·Г*ûõ Г·ГЁГ±ГҐГ«, êîòîðûå äåëÿòñÿ Г*Г* 13 ГЁ Г*ГҐ äåëÿòñÿ Г*Г* 2,3,5:', k );
readln;
end.
не уверен, сам учусь. делал в консольном режиме.
1
Asker
116 / 104 / 11
Регистрация: 18.12.2010
Сообщений: 378
21.01.2011, 13:04 #3
вот если покрутить можно и до 6-зн найти
1
Вложения
Тип файла: rar Count number.rar (168.1 Кб, 56 просмотров)
Asker
116 / 104 / 11
Регистрация: 18.12.2010
Сообщений: 378
21.01.2011, 13:05 #4
Тьфу-ты, в туалет сходил...
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2011, 13:05
Привет! Вот еще темы с ответами:

Ввести число Х и определить, делится ли оно на 2, на 5, на 3 - Delphi
Ввести число Х и определить, делится ли оно на 2, на 5, на 3. Создала поле для ввода числа (Edit1), пишу кнопку деления на 2 и выдает...

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13 - Delphi
Добрый день,подскажите пожалуйста код к заданию в Delphi: Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.

как на делфи написать прогу типа Ввести с клавиатуры целое число и определить делится ли оно нацело на 9 и на 11. - Delphi
как на делфи написать прогу типа Ввести с клавиатуры целое число и определить делится ли оно нацело на 9 и на 11. Ответ можете прислать на...

Массив целых чисел делится на 3 части двумя элементами: максимальным и минимальным. Определите сумму элементов в каждой части массива - Delphi
Заданный массив целых чисел делится на 3 части двумя элементами: максимальным и минимальным. Определите сумму элементов в каждой части...


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

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

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