0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 27
1

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

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

Author24 — интернет-сервис помощи студентам
Сколько имеется двузначных чисел, у которых сумма цифр делится на 13, а произведение цифр на 8.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2012, 20:07
Ответы с готовыми решениями:

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

Нахождение двузначных чисел, у которых сумма кубов цифр делится на 3 (постусловие)
составить программу нахождения двузначных чисел у которых сумма кубов цифр делиться на 3

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

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
Не знаю как дописать основную часть программы #include <iostream> #include <cmath> #include...

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

Не по теме:

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

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


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

Не по теме:

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

0
13103 / 5884 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
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
5705 / 2296 / 466
Регистрация: 20.11.2009
Сообщений: 7,720
Записей в блоге: 1
15.01.2012, 00:49 10
хм... действительно, а что я тогда не так сделал, я запустил цикл от 10 до 99 с проверкой на эти числа, выдавало мне все время моя проверка что нету таких чисел разбивал число следующим образом: переводил в строку потом забирал по символам и переводил снова в число складывал пытался поделить на сумму и поделить на произведение, все что проделывалось выводилось на экран, все я это видел... значит где-то пропустил чего-то ну да ладно
0
Shiningemerald
384 / 117 / 22
Регистрация: 05.01.2012
Сообщений: 951
15.01.2012, 10:58 11
Цитата Сообщение от Mawrat Посмотреть сообщение
в этой задаче, на самом деле, несколько другой смысл.
Да?О_о я немного затупила значит)ну если будет не то, RomЫЧ вернется на форум)
sorry
0
13103 / 5884 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
15.01.2012, 16:22 12
Цитата Сообщение от Electroflower Посмотреть сообщение
ну если будет не то
Electroflower, основа в твоём решении правильная. Я тебе плюс в том сообщении поставил. Но в качестве исходных данных у тебя берётся массив со случайными двухзначными числами. А надо выполнить перебор всех двухзначных чисел.
0
Shiningemerald
384 / 117 / 22
Регистрация: 05.01.2012
Сообщений: 951
15.01.2012, 18:17 13
Цитата Сообщение от Mawrat Посмотреть сообщение
основа в твоём решении правильная
понала теперь, спасибо
0
15.01.2012, 18:17
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2012, 18:17
Помогаю со студенческими работами здесь

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

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

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

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
Основные алгоритмические конструкции. Проверка условий. Циклы с параметром. Оператор выбора. ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru