|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2013, 19:09 | #1 |
Новичок
Джуниор
Регистрация: 17.12.2013
Сообщений: 19
|
РАБОТА С МАССИВАМИ
Помогите исправить ошибку. Не могу сообразить.
Найдите минимальный делитель числа, который больше единицы; Вот мой код: Код:
Последний раз редактировалось Stilet; 18.12.2013 в 19:21. |
18.12.2013, 19:31 | #2 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Код:
|
18.12.2013, 19:35 | #3 |
Новичок
Джуниор
Регистрация: 17.12.2013
Сообщений: 19
|
Спасибо огромное!! Помогли с помощью while
var n,a:integer; begin write('n='); readln(n); a:=2; while n mod a<>0 do inc(a); write('Наименьший делитель=',a); readln end. |
18.12.2013, 19:39 | #4 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Точно.. Мой косяк..
Я не учел, что число может быть простым.. |
18.12.2013, 19:50 | #5 |
Новичок
Джуниор
Регистрация: 17.12.2013
Сообщений: 19
|
Вы молодцы!!! А я вообще в массивы залезла.
|
18.12.2013, 19:52 | #6 |
Новичок
Джуниор
Регистрация: 17.12.2013
Сообщений: 19
|
Да!!!!!!!!!!!!!!!!!!!!! Женская логика - штука сложная!!!! Спасибо огромное.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с массивами (Си) | Nice Plant | Помощь студентам | 1 | 04.12.2012 23:46 |
Работа с массивами | Solnze2 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 24.09.2012 19:04 |
Работа с массивами | Ovt | Помощь студентам | 0 | 03.12.2010 18:59 |
Работа с массивами | GaSST | Microsoft Office Excel | 5 | 24.03.2010 05:12 |
Работа с массивами в С++ | verpl | Помощь студентам | 2 | 15.12.2009 14:45 |