Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
xPavelx
0 / 0 / 0
Регистрация: 11.01.2011
Сообщений: 31
1

Найти простое число

29.05.2011, 19:35. Просмотров 735. Ответов 5
Метки нет (Все метки)

Написал задачу по нахождению простого числа, но на 9 строке выплывает ошибка "целочисленное деление на 0". Подскажите, пожалуйста, где ошибка!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
{ïðîñòîå ÷èñëî}
uses crt;
var n, i, ch: integer;
begin
write('Please, input some numbe: ');
read(n);
ch:=0;
while i<=n do
   if n mod i=0 then ch:= ch+1;
if ch=2 then write('The number is SIMPLE.')
        else write('The number is NOT simple.');
end.
Добавлено через 3 часа 59 минут
Кто-нибудь, пожалуйста, подскажите!
И ещё: напишите, пожалуйста, программу, которая отвечала бы на вопрос, является ли число палиндромом.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2011, 19:35
Ответы с готовыми решениями:

Дано простое число Найти следующее простое число
Дано простое число n. Найти следующее простое число.

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

Найти ближайшее к 2000 простое число
Найти ближайшее к 2000 простое число. Определить функцию, распознающую простые...

Найти наименьшее трехзначное простое число
Найти наименьшее трехзначное простое число. Определить функцию, распознающую...

Найти наибольшее трехзначное простое число
Найти наибольшее трехзначное простое число. Определить функцию, распознающую...

5
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.05.2011, 19:37 2
поиском воспользуйся.А в первой счётчик то сделай i:=i+1.
0
xPavelx
0 / 0 / 0
Регистрация: 11.01.2011
Сообщений: 31
29.05.2011, 19:41  [ТС] 3
то есть вы имеете в виду вот так?
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var n, i, ch: integer;
begin
write('Please, input some numbe: ');
read(n);
ch:=0;
for i:= 1 to n do
   if n mod i=0 then i:=i+1;
if ch=2 then write('The number is SIMPLE.')
        else write('The number is NOT simple.');
end.
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.05.2011, 19:43 4
Pascal
1
2
3
4
5
6
7
ch:=0;
i:=0;
while i<n do
begin
 inc(i);
 if n mod i=0 then ch:= ch+1;
end;
циклы выучи.Но есть более эффективные методы проверки на простоту которые не раз писались на форуме
1
xPavelx
0 / 0 / 0
Регистрация: 11.01.2011
Сообщений: 31
29.05.2011, 19:45  [ТС] 5
А что за методы такие? Скажите, пожалуйста!
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.05.2011, 19:47 6
которые не раз писались на форуме
может стоит внимательнее читать?Введи в поиске Является ли число простым и смотри.предвижу вопрос про палиндром.Введи Является ли число палиндромом
0
29.05.2011, 19:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2011, 19:47

Найти первое простое число, большее 100
Найти первое простое число, большее 100. Определить функцию, распознающую...

Найти и вывести максимальное простое число из заданного массива
Помогите решить задачу. Дан произвольный массив целых чисел размером 5 на 7....

Длинная арифметика: найти первое простое число, которое больше 10^11
здравствуйте, помогите пожалуйста:( Найти первое простое число, которое...


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

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

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