Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Cepera7778
0 / 0 / 0
Регистрация: 06.12.2012
Сообщений: 11
#1

Определить все делители натурального числа х и их количество. - Turbo Pascal

07.12.2012, 07:16. Просмотров 558. Ответов 2
Метки нет (Все метки)

Определить все делители натурального числа х и их количество.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2012, 07:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить все делители натурального числа х и их количество. (Turbo Pascal):

Найти все делители натурального числа n - Turbo Pascal
Найти все делители натурального числа n. решите плиз через while и repeat Добавлено через 4 часа 10 минут плиз решите

Найти и напечатать все простые делители заданного натурального числа числа - Turbo Pascal
1)найти и напечатать все простые делители заданного натурального числа числа

Для натурального числа n найдите все простые делители - Turbo Pascal
Для натурального числа n найдите все простые делители с учётом повторения их и запишите в файл. (Например: n=24; результат: 2, 2, 2, 3).

Найти все делители натурального числа n, заданного с клавиатуры - Turbo Pascal
Найти все делители натурального числа n, заданного с клавиатуры.

Дана запись из пяти полей. Вывести все делители натурального числа - Turbo Pascal
Помогите, пожалуйста :) Никак не соображу) Дана запись из пяти полей. Вывести все делители натурального числа.

Для натурального числа n получить все его натуральные нечетные делители - Turbo Pascal
Задача1 Для натурального числа n получить все его натуральные нечетные делители. Задача2 Определить наибольшее натуральное число,...

2
CodeR
Фрилансер
3379 / 2781 / 788
Регистрация: 08.02.2012
Сообщений: 6,625
Записей в блоге: 1
07.12.2012, 07:42 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var x,k,i:integer;
Begin
    write('x = ');readln(x);
    i:=0;
    While i<x div 2 do
    Begin
      inc(i);
      if x mod i = 0 then 
      Begin
        write(i,' ');
        inc(k);
      End;
    End;
    write(x);//последний делитель
    writeln;
    writeln('Всего делителей = ',k+1);
    readln;
End.
0
Privet
1 / 1 / 0
Регистрация: 18.05.2012
Сообщений: 19
18.12.2012, 21:41 #3
Как составить блок-схему к этой задаче?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2012, 21:41
Привет! Вот еще темы с ответами:

Простые делители натурального числа - Turbo Pascal
найти все простые делители натурального числа N

Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N - Turbo Pascal
Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N. Что значит десятичная запись, как это записать я...

Задача паскаль - составные делители натурального числа N - Turbo Pascal
Составьте программу вывода на экран дисплея кратных трем составных делителей натурального числа N

Определить количество делителей заданного натурального числа - Turbo Pascal
Определить количество делителей заданного натурального числа (включая само число).


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

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

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