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

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

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 34, средняя оценка - 4.85
RomЫЧ
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 27
#1

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

13.01.2012, 20:07. Просмотров 4523. Ответов 12
Метки нет (Все метки)

Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2012, 20:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8 (Delphi):

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

Найти в интервале от N1 до N2 все числа, сумма цифр которых делится нацело на количество цифр - Delphi
Разработать приложение, позволяющее найти в интервале от N1 до N2 все числа, сумма цифр которых делится нацело на количество цифр....

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

Найти номера строк матрицы, сумма цифр элементов которых делится на 3 - Delphi
Найти номера строк матрицы, сумма цифр элементов которых делится на 3

Найти трехзначные числа, сумма цифр которых равна А, а само число делится на В - Delphi
с делфи ,сам не программист,но как предмет поставили.Очень надеюсь на вас Найти все трехзначные числа ,такие,сумма цифр которых равна...

Найти все трехзначные числа, сумма цифр которых равна А, а само число делится на В. А и В задаются. - Delphi
Всем доброе время суток. Помогите пожалуйста написать программу по вот этой задачи - Найти все трехзначные числа, сумма цифр которых...

12
Electroflower
Форумчанка
291 / 84 / 9
Регистрация: 05.01.2012
Сообщений: 473
Записей в блоге: 1
14.01.2012, 11:53 #2
Вот кое-что написала) но если что-то не так-я не виновата, ведь задание не очень понятно сформулировано.
в общем моя программа задает 10 элементов рандомно и среди них уже ищет числа , сумма цифр которых делится на 13 и числа, произведение цифр которых делится на 8!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
var
  Form1: TForm1;
 
  A : array[1..99] of integer;
  i,j,n, proiz,sum:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=10;
 
randomize;
for i:=1 to n do
begin
A[i]:=random(99);
Edit1.Text:=Edit1.Text+ ' '+IntToStr(A[i]);
 
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
sum:=0;
for i:=1 to n do
if (((A[i]) div 10)+((A[i]) mod 10))mod 13=0 then
sum:=sum+1;
Edit2.Text:=Inttostr(sum);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
proiz:=0;
for i:=1 to n do
if (A[i] div 10<>0) and (A[i] mod 10<>0)and  ((((A[i]) div 10)*((A[i]) mod 10))mod 8=0) then
proiz:=proiz+1;
Edit3.Text:=Inttostr(proiz);
end;
 
end.
2
Electroflower
Форумчанка
291 / 84 / 9
Регистрация: 05.01.2012
Сообщений: 473
Записей в блоге: 1
14.01.2012, 11:57 #3
Архивчик
0
Вложения
Тип файла: rar программа 13 8.rar (3.4 Кб, 24 просмотров)
Arcor
4799 / 1800 / 159
Регистрация: 20.11.2009
Сообщений: 5,696
Записей в блоге: 1
14.01.2012, 19:44 #4
Цитата Сообщение от RomЫЧ Посмотреть сообщение
Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8.
а такие числа вообще существуют? если да, приведи пожалуйста хоть 1 такое, чтобы сумма цифр числа делилась на 13 и произведение на 8, я что то не верю, что такое существует взял только что числа в районе Extended и в цикл засунул, мне компьютер сказал что подходящих равно 0. Или я задание не понял
0
Electroflower
Форумчанка
291 / 84 / 9
Регистрация: 05.01.2012
Сообщений: 473
Записей в блоге: 1
14.01.2012, 19:48 #5
Arcor,
по идее, как я поняла числа, найти все числа в массиве сумма цифр которых делится на 13 и найти все числа, произведение цифр которых делится на 8
0
Arcor
4799 / 1800 / 159
Регистрация: 20.11.2009
Сообщений: 5,696
Записей в блоге: 1
14.01.2012, 19:57 #6
Electroflower,
Цитата Сообщение от RomЫЧ Посмотреть сообщение
Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8.
значит что-то другое чем,
Цитата Сообщение от Electroflower Посмотреть сообщение
по идее, как я поняла числа, найти все числа в массиве сумма цифр которых делится на 13 и найти все числа, произведение цифр которых делится на 8

Не по теме:

хотя экстрасенсовые способности у меня еще не проклевываются... в смысле что нужно вообще от задания... Хотя уже должны по идее

0
RomЫЧ
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 27
14.01.2012, 20:45  [ТС] #7
Цитата Сообщение от Arcor Посмотреть сообщение
а такие числа вообще существуют? если да, приведи пожалуйста хоть 1 такое, чтобы сумма цифр числа делилась на 13 и произведение на 8, я что то не верю, что такое существует взял только что числа в районе Extended и в цикл засунул, мне компьютер сказал что подходящих равно 0. Или я задание не понял
я хз что это за числа )))) какую задачу в универе подсунули, такую и записал


Цитата Сообщение от Electroflower Посмотреть сообщение
Архивчик
башшое-башшое спасибо
0
Arcor
4799 / 1800 / 159
Регистрация: 20.11.2009
Сообщений: 5,696
Записей в блоге: 1
14.01.2012, 20:50 #8
Цитата Сообщение от RomЫЧ Посмотреть сообщение
я хз что это за числа )))) какую задачу в универе подсунули, такую и записал
О_о b

Не по теме:

и снова я не виноват, мне так дали и меня не научили...

0
Mawrat
12788 / 5695 / 672
Регистрация: 19.09.2009
Сообщений: 8,838
14.01.2012, 23:40 #9
Electroflower, в этой задаче, на самом деле, несколько другой смысл.
Требуется среди всех чисел, которые в десятичной системе счисления имеют два значимых разряда, найти те, которые удовлетворяют условию: сумма цифр делится без остатка на 13, а произведение цифр делится без остатка на 8. (Есть два таких числа: 58 и 85).
Решается так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, Cnt, Sum, Mul : Integer;
  S : String;
begin
  Memo1.Clear;
  Memo1.Lines.Add(
    'Найти количество двухзначных чисел, сумма цифр которых'
    + #13#10'делится на 13, а произведение - на 8.'
  );
  Cnt := 0;
  S := '';
  for i := 1 to 9 do
  for j := 0 to 9 do begin
    Sum := i + j;
    Mul := i * j;
    if (Sum mod 13 = 0) and (Mul mod 8 = 0) then begin
      Inc(Cnt);
      if S <> '' then S := S + ', ';
      S := S + IntToStr(i * 10 + j);
    end;
  end;
  if Cnt = 0 then
    Memo1.Lines.Add('Таких чисел нет.')
  else begin
    Memo1.Lines.Add('Количество таких чисел: ' + IntToStr(Cnt));
    Memo1.Lines.Add('Перечень найденных чисел: ' + S);
  end;
end;
Здесь на форму надо положить компоненты: TButton и TMemo. Для кнопки создать обработчик события OnClick и оформить код, как показано выше.
1
Arcor
4799 / 1800 / 159
Регистрация: 20.11.2009
Сообщений: 5,696
Записей в блоге: 1
15.01.2012, 00:49 #10
хм... действительно, а что я тогда не так сделал, я запустил цикл от 10 до 99 с проверкой на эти числа, выдавало мне все время моя проверка что нету таких чисел разбивал число следующим образом: переводил в строку потом забирал по символам и переводил снова в число складывал пытался поделить на сумму и поделить на произведение, все что проделывалось выводилось на экран, все я это видел... значит где-то пропустил чего-то ну да ладно
0
Electroflower
Форумчанка
291 / 84 / 9
Регистрация: 05.01.2012
Сообщений: 473
Записей в блоге: 1
15.01.2012, 10:58 #11
Цитата Сообщение от Mawrat Посмотреть сообщение
в этой задаче, на самом деле, несколько другой смысл.
Да?О_о я немного затупила значит)ну если будет не то, RomЫЧ вернется на форум)
sorry
0
Mawrat
12788 / 5695 / 672
Регистрация: 19.09.2009
Сообщений: 8,838
15.01.2012, 16:22 #12
Цитата Сообщение от Electroflower Посмотреть сообщение
ну если будет не то
Electroflower, основа в твоём решении правильная. Я тебе плюс в том сообщении поставил. Но в качестве исходных данных у тебя берётся массив со случайными двухзначными числами. А надо выполнить перебор всех двухзначных чисел.
0
Electroflower
Форумчанка
291 / 84 / 9
Регистрация: 05.01.2012
Сообщений: 473
Записей в блоге: 1
15.01.2012, 18:17 #13
Цитата Сообщение от Mawrat Посмотреть сообщение
основа в твоём решении правильная
понала теперь, спасибо
0
15.01.2012, 18:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2012, 18:17
Привет! Вот еще темы с ответами:

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

Определить индексы тех элементов массива, у которых сумма четных цифр меньше суммы нечетных цифр - Delphi
Разработать программу, которая случайным образом формирует одномерный массив целых чисел (количество элементов должно вводиться во время...

сумма цифр делится на к - Delphi
Вводятся два числа N и K. Выведите количество чисел из диапазона от 1 до N таких, что их сумма цифр делится на K

Определить k — количество трёхзначных натуральных чисел, сумма цифр которых равна n - Delphi
Определить k — количество трёхзначных натуральных чисел, сумма цифр которых равна n ( ). Операции деления (/, div, mod) не использовать.


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

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

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