Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.81/26: Рейтинг темы: голосов - 26, средняя оценка - 4.81
RomЫЧ
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 27
1

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

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

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

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

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

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

Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27
Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме...

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

12
Electroflower
Shiningemerald
375 / 108 / 22
Регистрация: 05.01.2012
Сообщений: 667
Записей в блоге: 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
Shiningemerald
375 / 108 / 22
Регистрация: 05.01.2012
Сообщений: 667
Записей в блоге: 1
14.01.2012, 11:57 3
Архивчик
0
Вложения
Тип файла: rar программа 13 8.rar (3.4 Кб, 24 просмотров)
Arcor
5029 / 1906 / 405
Регистрация: 20.11.2009
Сообщений: 6,218
Записей в блоге: 1
14.01.2012, 19:44 4
Цитата Сообщение от RomЫЧ Посмотреть сообщение
Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8.
а такие числа вообще существуют? если да, приведи пожалуйста хоть 1 такое, чтобы сумма цифр числа делилась на 13 и произведение на 8, я что то не верю, что такое существует взял только что числа в районе Extended и в цикл засунул, мне компьютер сказал что подходящих равно 0. Или я задание не понял
0
Electroflower
Shiningemerald
375 / 108 / 22
Регистрация: 05.01.2012
Сообщений: 667
Записей в блоге: 1
14.01.2012, 19:48 5
Arcor,
по идее, как я поняла числа, найти все числа в массиве сумма цифр которых делится на 13 и найти все числа, произведение цифр которых делится на 8
0
Arcor
5029 / 1906 / 405
Регистрация: 20.11.2009
Сообщений: 6,218
Записей в блоге: 1
14.01.2012, 19:57 6
Electroflower,
Цитата Сообщение от RomЫЧ Посмотреть сообщение
Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8.
значит что-то другое чем,
Цитата Сообщение от Electroflower Посмотреть сообщение
по идее, как я поняла числа, найти все числа в массиве сумма цифр которых делится на 13 и найти все числа, произведение цифр которых делится на 8

Не по теме:

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

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


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

Не по теме:

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

0
Mawrat
12833 / 5741 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
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
5029 / 1906 / 405
Регистрация: 20.11.2009
Сообщений: 6,218
Записей в блоге: 1
15.01.2012, 00:49 10
хм... действительно, а что я тогда не так сделал, я запустил цикл от 10 до 99 с проверкой на эти числа, выдавало мне все время моя проверка что нету таких чисел разбивал число следующим образом: переводил в строку потом забирал по символам и переводил снова в число складывал пытался поделить на сумму и поделить на произведение, все что проделывалось выводилось на экран, все я это видел... значит где-то пропустил чего-то ну да ладно
0
Electroflower
Shiningemerald
375 / 108 / 22
Регистрация: 05.01.2012
Сообщений: 667
Записей в блоге: 1
15.01.2012, 10:58 11
Цитата Сообщение от Mawrat Посмотреть сообщение
в этой задаче, на самом деле, несколько другой смысл.
Да?О_о я немного затупила значит)ну если будет не то, RomЫЧ вернется на форум)
sorry
0
Mawrat
12833 / 5741 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
15.01.2012, 16:22 12
Цитата Сообщение от Electroflower Посмотреть сообщение
ну если будет не то
Electroflower, основа в твоём решении правильная. Я тебе плюс в том сообщении поставил. Но в качестве исходных данных у тебя берётся массив со случайными двухзначными числами. А надо выполнить перебор всех двухзначных чисел.
0
Electroflower
Shiningemerald
375 / 108 / 22
Регистрация: 05.01.2012
Сообщений: 667
Записей в блоге: 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
Написать программу, выводящую на экран все двухзначные числа, сумма квадратов...


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

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

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