Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
mesqueunclub
0 / 0 / 0
Регистрация: 14.10.2013
Сообщений: 2
1

Натуральные числа

15.10.2013, 17:39. Просмотров 845. Ответов 1
Метки нет (Все метки)

а)Дано натуральное число. Верно ли то , что количество его делителей равно N (N вводится с клавиатуры)?

б) Найти все натуральные числа из промежутка от 1 до 200, у которых количество делителей равно N
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2013, 17:39
Ответы с готовыми решениями:

Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат...

Даны натуральные числа m и n. Найти такие натуральные p и q, не имеющие общих делителей, что p/q = m/n
Даны натуральные числа m и n. Найти такие натуральные p и q, не имеющие общих...

Натуральные числа: Найти все четные числа заданного промежутка
Даны натуральные числа a, b. Найти все четные числа промежутка. И блок схема...

Даны натуральные числа т и п. Получить сумму т последних цифр числа n
Решите задачу... Даны натуральные числа т и п. Получить сумму т последних цифр...

Даны натуральные числа n,m. Получить сумму m последних цифр числа n
Даны натуральные числа n,m. Получить сумму m последних цифр числа n.

1
erl27
895 / 743 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
15.10.2013, 19:08 2
Лучший ответ Сообщение было отмечено mesqueunclub как решение

Решение

а)Программа:
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
var
  N, P: integer;
 
 ///Функция определяет количество делителей числа Q
function Deliteli(Q: integer): integer;  
var
  d: integer;
  
begin
  d := 1;
  result := 0;
  while d <= Q do
  begin
    if (Q mod d = 0) then result := result + 1;
    inc(d) 
  end
end;
  
begin
  writeln('Введите число:');
  write(' P = ');
  readln(P);
  writeln('Введите количество делителей:');
  write(' N = ');
  readln(N);
  writeln;
  if Deliteli(P) = N then write(' Да')
  else write(' Нет')
end.
Добавлено через 11 минут
б)Решение:
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
var
  N, P, i: integer;
 
 ///Функция определяет количество делителей числа Q
function Deliteli(Q: integer): integer;  
var
  d: integer;
  
begin
  d := 1;
  result := 0;
  while d <= Q do
  begin
    if (Q mod d = 0) then result := result + 1;
    inc(d) 
  end
end;
  
begin
  writeln('Введите количество делителей:');
  write(' N = ');
  readln(N);
  writeln('Все числа с интервала [1..200], количество',
          ' делителей которых равно ', N, ':');
  writeln;
  for i := 1 to 200 do
    if Deliteli(i) = N then write(' ', i)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.10.2013, 19:08

Даны натуральные числа а, b. Найти все четные числа промежутка
Даны натуральные числа а, b. Найти все четные числа промежутка. и блок схему...

Из списка чисел найти нечетные натуральные числа, которые меньше равен числа n
Из списка чисел найти нечетные натуральные числа, которые меньше или равные...

Даны натуральные числа n, р, целые числа A1,.,An. Получить произведение членов последовательности A1, ., An, кратных р
Даны натуральные числа n, р, целые числа A1,...,An. Получить произведение...


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

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

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