Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
3 / 3 / 0
Регистрация: 08.10.2014
Сообщений: 51
1

Вывести на экран в столбец все делители данного числа и количество делителей для каждого числа

22.03.2015, 12:23. Показов 2294. Ответов 3
Метки нет (Все метки)

Ввести последовательно n произвольных целых чисел, вывести на экран в столбец все делители данного числа и количество делителей для каждого числа.

Ребят, помогите. С одногруппницей уже всю голову сломали! Есть код только для одного числа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var x,y,k:integer;
begin
    readln(x);
    k:=0;
    for y:=1 to x do
      if x mod y=0 then 
        begin 
          writeln(y,' ');
          k:=k+1;
        end;
     writeln(k);
end.
Как сделать для n-ого количества, мы не знаем и не понимаем.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2015, 12:23
Ответы с готовыми решениями:

Вывести на экран в порядке убывания все делители данного числа
Составьте программу вывода на экран в порядке убывания всех делителей данного числа. Подсчитайте их...

Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p общих делителей.
Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p...

Для каждого числа последовательности найти количество его делителей
Доброго времени суток всем! Возникла проблема с данной программой : Вводится последовательность...

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

3
15 / 15 / 12
Регистрация: 01.02.2014
Сообщений: 62
22.03.2015, 12:44 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var x,y,k,n,i:integer;
begin
writeln('какое количество чисел будет введено');
readln(n);
for i :=1 to n do begin
    readln(x);
    k:=0;
    for y:=1 to x do begin
      if x mod y=0 then 
        begin 
          write(y,' ');
          k:=k+1;
        end;
     end;
write('количество делителей для числа ',x,' равно ',k);
writeln;
end;
end.
только я вывожу не в столбик а в строку
0
3 / 3 / 0
Регистрация: 08.10.2014
Сообщений: 51
22.03.2015, 12:46  [ТС] 3
kukuryza, вывести в строку - не проблема. А как сделать в столбец?
0
15 / 15 / 12
Регистрация: 01.02.2014
Сообщений: 62
22.03.2015, 13:04 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var x,y,k,n,i:integer;
begin
writeln('какое количество чисел будет введено');
readln(n);
for i :=1 to n do begin
    readln(x);
    k:=0;
    for y:=1 to x do begin
      if x mod y=0 then 
        begin 
          writeln(y);
          k:=k+1;
        end;
     end;
writeln('количество делителей для числа ',x,' равно ',k);
writeln;
end;
end.
Добавлено через 8 минут
просто выведенное в строку оно понятнее выглядит
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.03.2015, 13:04

Вывести на экран нечетные делители числа n
Вывести на экран нечетные делители числа n Добавлено через 1 минуту For a:=2 to n div 2 do ...

Вывести на экран все делители переданного процедуре числа
Напишите программу, в которой будет процедура, которая выводит на экран все делители переданного ей...

Вывести на экран все делители данного числа которые заканчиваются на 3.
Помогите пожалуста. Дано натуральное N Вывести на экран все делители данного числа которые...

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


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

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

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