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

Найти числа отрезка, суммы делителей которых больше заданного числа Х.

25.03.2011, 21:59. Показов 2584. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Проверьте программу пожалуйста.Если можно сделать программу с помощью дополнительного оператора
z более быстрее,то объясните.
Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного числа Х.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program z2_v2_l4;
Var a,b,x,m,i,k: Integer;
Begin
Writeln ('Ввести натуральный отрезок чисел [A, B]');
Readln (a,b);
Writeln ('Ввести число Х');
Readln (x);
for m:=a to b do
begin
k:=0;
for i:=1 to m do
end;
begin
if(m mod i = 0) then k:=k+i;
end;
begin
if(k>x) then write (m, ' , ');
end;
if (k<=x) then write ('takih chisel net');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.03.2011, 21:59
Ответы с готовыми решениями:

Найти двухзначные числа, суммы цифр которых больше заданного числа Х
2. Найти двухзначные числа, суммы цифр которых больше заданного числа Х

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше...

Дан натуральный отрезок чисел [A,B].Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

Найти те числа данного отрезка, суммы делителей которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше...

1
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
26.03.2011, 09:32 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program z2_v2_l4;
uses crt;
Var a,b,x,m,i,p,s: Integer;
Begin
Writeln ('Ввести натуральный отрезок чисел [A, B]');
Readln (a,b);
Writeln ('Ввести число Х');
Readln (x);
writeln('Числа, сумма делителей которых больше ',x);
p:=0;
for m:=a to b do
 begin
  s:=0;
  for i:=1 to m do
  if(m mod i = 0) then s:=s+i;
  if(s>x) then
    begin
    write (m,' , ');
    p:=1;
    end;
 end;
if p=0 then write ('Таких чисел нет');
end.
0
26.03.2011, 09:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2011, 09:32
Помогаю со студенческими работами здесь

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

Найти числа, меньше 1000, сумма делителей (без самого числа) которых, больше данного числа
Найти числа, меньше 1000, сумма делителей(без самого числа) которых, больше данного числа. ...

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых есть числа нечетные
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых есть числа...

Найти все трёхзначные натуральные числа, сумма цифр которых больше заданного числа N
ВЫВЕСТИ ВСЕ НАТУРАЛЬНЫЕ ТРЕХЗНАЧНЫЕ ЧИСЛА Ы КОТОРЫХ СУММА БОЛЬШЕ N Циклы Пожалуйста полностью...


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

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

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