Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: Определить, есть ли хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В

Составить программу для решения предложенной задачи. Выясните имеются ли среди чисел i3 – 17*i*n2 + n3, i = 1,2,…,n хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В (А≠В
Ответ:
Сообщение от RENE5865
i3 – 17*i*n2 + n3
Это наверное так?
i3-17*i*n2+n3

Добавлено через 14 минут
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var n,i,a,b,c,k:integer;
begin
repeat
writeln('Введите 2 целых числа, не равных 0 и A<>B');
readln(a,b);
until(a*b<>0)and(a<>b);
write('n=');readln(n);
k:=0;
i:=1;
while(i<=n)and(k=0)do
 begin
  c:=i*i*i-17*i*n*n+n*n*n;
  if(c mod a=0)and(c mod b<>0) then k:=1;
  i:=i+1;
 end;
if k=1 then write('имеется')
else write('не имеется');
end.
Вопрос: Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N

помогите пожалуйста решить задачу
"определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N"
заранее спасибо.
Ответ: Глубоко уважаемый кот Бегемот
я не считаю свою программу лучше вашей. Наоборот,
Ваша программа образец для подражания! Однако
я написал и свой вариант программы. Именно ВАРИАНТ.
Ибо считаю, что у людей должен быть Выбор. И пусть
они сделают свой выбор в пользу Вашей программы.
примечание
Я не склонен драматизировать ситуацию и быть вам
соперником. Нам нечего делить. И чем больше вариантов,
тем лучше для для Бейсика и его друзей.
Ваш geh
Вопрос: Подсчитать количество четырёхзначных чисел, сумма цифр которых равна заданному числу

Всем доброго дня, уважаемые. Очень нужна помощь с решением задачи на классы.
Найти и вывести все четырёхзначные числа из заданной последовательности чисел. Подсчитать количество четырёхзначных чисел, сумма цифр которых равна заданному числу k.
Все это нужно сделать с отдельными функциями.
Ответ: Спасибо)
Вопрос: Найти элементы массива, сумма цифр которых равна заданному числу

Найти и вывести на экран элементы одномерного массива, сумма цифр которых равна заданному числу
Ответ: Взято отсюда

и доделано:

Код Pascal
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
44
45
46
47
48
const
  n=10;
type
  mas=array[1..n] of integer;
var
  a1:mas;
  i,pc,a:integer;
  f:boolean;
 
procedure sum(ai:integer;var k:integer);
begin
  k:=0;
  ai:=abs(ai);
  while ai>0 do
    begin
      k:=k+(ai mod 10);
      ai:=ai div 10
    end
end;
 
begin
  randomize;
  writeln('Даны числа:');
  for i:=1 to n do
    begin
      a1[i]:=10+random(100);
      write(a1[i],' ')
    end;
  writeln;
  writeln ('Введите искомое число.');
  write('a = ');
  readln(a);
  f:=false;
  write('Число(а): ');
  for i:=1 to n do
    begin
      sum(a1[i],pc);
      if pc=a
        then
          begin
            f:=true;
            write(a1[i],' ')
          end
    end;
  if not f then
    write('Отсутствуют');
  readln
end.
Вопрос: Написать программу,которая выводит все трех значаные натуральные числа,сумма цифр которых равна заданному числ

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

Не по теме:

Сообщение от JuriiMW
Joy, ну уж не до такой степени!
Достаточно так:
не знаю как вам, но мне код такой читать сложно.

Вопрос: Найти все тройки чисел, сумма квадратов которых даёт заданное натуральное число

Дано натуральное число n. Укажите все тройки x, y, z таких натуральных чисел, что x2+y2+z2=n.
Ответ:
Сообщение от lemegeton
Сомнительный тезис.
Под "это всем понятно" я имел к виду то, что об этом уже говорилось в прилинкованной теме об определении квадратности числа, из которой я и притащил сюда свою функцию.
Вопрос: Процедуры: на заданном отрезке найти все натуральные числа, сумма цифр которых при умножении числа на a не изменится

На отрезке [2; n] найти все натуральные числа, сумма цифр которых при умножении числа на a не изменится.
Ответ:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim n As Integer, i As Integer, sum As Integer, sum1 As Integer, a As Integer
Dim s As String
Private Sub Form_Load()
n = 21
a = 7
For i = 2 To n
sum = 0
s = LTrim$(RTrim$(Str(i)))
For j = 1 To Len(s)
sum = sum + Val(Mid$(s, j, 1))
Next
sum1 = 0
s = LTrim$(RTrim$(Str(i * a)))
For j = 1 To Len(s)
sum1 = sum1 + Val(Mid$(s, j, 1))
Next
If sum1 = sum Then
MsgBox "Число=" & Str(i) & " " & "Число*a=" & Str(i * a) & Str(sum) & " " & Str(sum1)
End If
Next
End Sub
Вопрос: Найти все трехзначные числа, сумма цифр которых равна заданному целому числу

Пожалуйста, помогите сделать! (visual basic)
Найти все трехзначные числа, сумма цифр которых равна заданному целому числу
Ответ:
Visual Basic
1
2
3
4
5
6
7
for a=1 to 9
for b=0 to 9
for c=0 to 9
if a+b+c=[заданному целому числу] then print a & b & c
next
next
next
Вопрос: Определить количество трехзначных чисел, сумма цифр которых равна определенному числу

Определить количество трехзначных натуральных чисел, сумма цифр которых равна целому числу n (0 < n < 27).
Ответ: lnjas, Очевидно, что сумма цифр трехзначного числа больше 0. Так же очевидно, что среди трехзначных чисел, только у 999 сумма цифр 27. У остальных меньше. Всего трехзначных чисел - 900. Искомых - на одно меньше. Итого:
C++
1
2
3
4
int main()
{
    std::cout << 899 << std::endl;
}
Вопрос: Вывести на экран только те суммы цифр, которых больше заданного числа

а) сформировать одномерный массив из k чисел Трибоначчи, вычисленных по формуле «назад», т.е. Tn=Tn+3 - Tn+2 - Tn+1.
б) Среди всех четырехзначных натур. чисел вывести на экран только те суммы цифр которых больше заданного числа P.
в) для чисел из б) вывести кол-во делителей.

Все это с помощью подпрограммы надо сделать
Ответ: б), в)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  i,j,p,k:integer;
begin
  write('p=');readln(p);
  if p<36 then begin
    for i:=1000 to 9999 do 
      if i div 1000+i div 100 mod 10+i mod 100 div 10+i mod 10>p then begin
        k:=2;
        for j:=2 to i div 2+1 do if i mod j=0 then k:=k+1;
        writeln(i,':',k);
      end;
  end
  else writeln('нет таких чисел');
end.    
п. а) тут каким боком?

Добавлено через 9 минут
Сообщение от Alyfila1
Tn=Tn+3 - Tn+2 - Tn+1
числа Tn+3, Tn+2, Tn+1 - заранее заданы?