Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 07.06.2013
Сообщений: 15
1

Вывести число и столько плюсов, сколько делителей у этого числа

11.05.2014, 15:04. Показов 2203. Ответов 2
Метки нет (Все метки)

Составить программу для графического изображения делимости чисел от 1 до N (N – исходное данное). В каждой строке надо выводить число и столько плюсов, сколько делителей у этого числа. Например, если исходное данное число равно 4, то на экране должно быть выведено:
1+
2++
3++
4+++
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2014, 15:04
Ответы с готовыми решениями:

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

Определите, сколько у числа различных натуральных делителей, включая число 1 и само число n
Дано натуральное число n. Определите, сколько у него различных натуральных делителей, включая число...

Найти следующее число, в двоичной записи которого столько же единиц, сколько и в двоичном представлении числа N
Найти следующее число, в двоичной записи которого столько же единиц, сколько и в двоичном...

Определить, сколько делителей у вводимого числа, и вывести сами делители
определить сколько и каких делителей у вводимого числа

2
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
11.05.2014, 17:03 2
Лучший ответ Сообщение было отмечено Marykea как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n, i, j: integer;
  
begin
  write('n = ');
  readln(n);
  for i := 1 to n do begin //все числа от 1 до n
    write(i); //выводим число i
    for j := 1 to i do //проверяем все числа до i
      if i mod j = 0 then write('+'); //если i делится на j, то выводим "+"
    writeln //начинаем со следующей строки
  end
end.
1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2014, 17:05 3
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
uses crt;
function KolDel(n:integer):integer;
var i,k:integer;
begin
if n=1 then k:=1
else
 begin
  k:=2; //1 и само число
  for i:=2 to n div 2 do //остальные делители
  if n mod i=0 then k:=k+1;
 end;
KolDel:=k;
end;
var n,i,j:integer;
begin
write('n=');
readln(n);
clrscr;
for i:=1 to n do
 begin
  textcolor(13);
  write(i,' ');
  textcolor(2);
  for j:=1 to KolDel(i) do
  write('+');
  writeln;
  if i mod 20=0 then
   begin
    write('Press Enter');
    readln
   end;
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2014, 17:05

Распечатайте наименьшее число столько раз, сколько наибольшее число
Дайте два числа. Распечатайте наименьшее число столько раз, сколько наибольшее число. например: 2 ...

дано число N, сколько цифр в записи этого числа больше 5
дано число N, сколько цифр в записи этого числа больше 5

Задан масив элементов найти наибольшее число в массиве вывести число и индекс этого числа
помогите с ява скриптом(

Вывести все целые числа от A до B включительно, при этом каждое число должно выводиться столько раз, каково его значение
Ввести целые положительные числа A и B (A < B). Вывести в список все целые числа от A до B...


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

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

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