Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
dero
1 / 1 / 2
Регистрация: 12.10.2012
Сообщений: 42
1

[Цикл] Найти делители числа (задача уже решена, но где-то ошибка)

22.12.2012, 22:19. Просмотров 325. Ответов 1
Метки нет (Все метки)

Вот собственно попробовал решить (нужно решить с помощью while), но видимо где-то ошибка:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  program repeattowhile1;
  uses crt;
var d,n: longint;
BEGIN
clrscr;
write('n='); readln(n);
d:=0; write('Dilniki ',n,':');
while d=(n div 2) do
begin
inc(d);
if n mod d = 0 then write(d,', ');
end;
writeln(n);
readkey
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2012, 22:19
Ответы с готовыми решениями:

задача на множества, если она уже решена то прошу ссылку
. Напечатать текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские...

Необходимо сделать задачу методом итераций (задача уже решена рекурсивно)
Ниже я прикрепляю код, решающий задачу при помощи рекурсии. Помогите, пожалуйста, написать для этой...

Компьютер угадывает число. Задача решена, как считаете? (вектор и цикл)
Компьютер должен угадать задуманное пользователем число с 7-ми попыток. Хотел написать с...

Зная простые делители числа и их количество, найти все делители числа
Добрый вечер. Есть задача: зная простые делители числа и их количество, найти все делители числа....

Не могу понять в чем ошибка и верно ли решена задача?
для чисел из отрезка подсчитать количество цифр в десятичной записи каждого целого...

1
igor_kz
150 / 150 / 80
Регистрация: 16.06.2012
Сообщений: 312
22.12.2012, 23:04 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program repeattowhile1;
  uses crt;
var d,n: longint;
BEGIN
clrscr;
write('n='); readln(n);
d:=0; write('Dilniki ',n,':');
while d[B]<>[/B](n div 2) do
begin
inc(d);
if n mod d = 0 then write(d,', ');
end;
writeln(n);
readkey
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2012, 23:04

Где здесь логическая ошибка? Второй час уже не могу найти
void ReadFromFile( Person*&amp; pers, int&amp; rCount ) { FILE* file = fopen(&quot;kakhochy.pam&quot;, &quot;r&quot;); ...

Делители ( факториал числа ) - Задача
По заданному числуnнеобходимо вычислить количество натуральных чисел, которые являются делителями...

Что в коде не так? Получился вечный цикл. Не могу найти где ошибка
var a = ; var i, j, k, d, right_element, left_element, last_elements; right_element =...


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

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

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