Форум Кургана и Курганской области и наших друзей

Зима. Форум Кургана и Курганской области и наших друзей
22 Октябрь 2019, 14:32:12 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Помогите решить задачу!  (Прочитано 5056 раз)
0 Пользователей и 1 Гость смотрят эту тему.
l1730g
Коллежский регистратор


Карма: 0
Offline Offline

Сообщений: 1


Награды
« : 19 Май 2008, 21:22:04 »

Помогите пожалуйста решить задачи по packal самым легким способом:
 no Плачущий
1. Дано натуральное число:
а)сколько раз первая цифра встречается в данном числе;
б)верно ли, что данное число начинается на А, а заканчивается на В (А и В вводятся с клавиатуры).
2. Найти все четырёхзначные числа, в которых ровно две одинаковых цифры.
3. Найти количество различных цифр данного натурального числа.
4. Найти количество нечётных делителей натурального числа, больших К (К вводить с клавиатуры).
5. Найти все натуральные числа x, y и z из интервала от 1 до 20, для которых выполняется равенство: x * y2 = z2.  В замешательстве
Записан
[DD]
Коллежский регистратор


Карма: 0
Offline Offline

Сообщений: 1


Награды
« Ответ #1 : 08 Сентябрь 2008, 13:53:12 »

только помогу решить...
1)
а) переводишь в строку(процедура str(ineger|real,string)) берешь первый символ и ищешь
б) аналогично тока переводить ещё надо и A и B,
(можно конечно с помощью операторов mod/div но это посложнее но эффективнее)
2) самое простое это перебором всех четырехзначных чисел(а так-то условие тупое, не понятно то ли надо чтоб во всех числах были тока 2 каких либо цифры одинаковых то ли попарно)
3)проще всего будет с использованием множества и операторов mod/div (с помощью операторов получаешь цифру проверяешь её вхождение во множество если её не то добавляешь если есть пошли дальше)
4) в какойнибудь массив записываешь все нечетные делители этого числа(определять с помощью mod/div) он будет сартированным затем просто вывести все элементы которые больше введенного
5) опять же перебор в трех циклах
Записан
.:†Sirius†:.
Коллежский секретарь
****

Карма: 64
Offline Offline

Пол: Мужской
Сообщений: 427

ХХС… In process…


Награды
« Ответ #2 : 21 Сентябрь 2008, 12:42:58 »

археолог xD
Записан

Миниатюра : утром в туалете  -_-  -_о  о_о  0_0  ^_^
*SevaN*
Коллежский секретарь
****

Карма: 17
Offline Offline

Пол: Мужской
Сообщений: 410


Награды
« Ответ #3 : 22 Сентябрь 2008, 13:32:11 »

археолог xD
ну может к пересдаче помог Веселый
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.11 | SMF © 2006-2008, Simple Machines LLC
rss | wap
Valid XHTML 1.0! Valid CSS!