Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2021, 15:53   #1
solmyashzz
Пользователь
 
Регистрация: 12.12.2021
Сообщений: 10
По умолчанию Задача на работу с вложенными массивами

Добрый вечер, прошу помощи.
В заданном пользователем промежутке натуральных чисел найти те числа, количество делителей у которых не меньше некоторого значения, так же заданного пользователем. Для таких чисел выведите на экран само число, количество делителей, все делители.
Пример работы:
Введено: 30 40 6
Вывод:
30 - 8 делителей: 1 2 3 5 6 10 15 30
32 - 6 делителей: 1 2 4 8 16 32
36 - 9 делителей: 1 2 3 4 6 9 12 18 36
40 - 8 делителей: 1 2 4 5 8 10 20 40

Дополните решение первой части:
Найдите количество четных и нечетных цифр каждого выведенного числа, учитывая также его делители.
Пример работы для числа 32:
32 - 6 делителей: 1 2 4 8 16 32; Четных - 4, Нечётных - 2.

В дополнение к количеству цифр выведите сами цифры, убирая дубликаты. Если получится - то по возрастанию.
Пример работы для числа 32:
32 - 6 делителей: 1 2 4 8 16 32; Четных - 4 (2 4 6 8), Нечётных - 2 (1 3)..

Последний раз редактировалось solmyashzz; 12.12.2021 в 16:28. Причина: Правка из-за ошибки
solmyashzz вне форума Ответить с цитированием
Старый 12.12.2021, 16:22   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Цитата:
Сообщение от solmyashzz Посмотреть сообщение
32 - 6 делителей: 1 2 4 8 16 32; Четных - 6, Нечётных - 4.
Это каких именно 6 четных цифр? не пойму.
Это каких именно 4 нечетных цифр? не пойму.


Цитата:
Сообщение от solmyashzz Посмотреть сообщение
32 - 6 делителей: 1 2 4 8 16 32; Четных - 6 (2 4 6 8), Нечётных - 4 (1 3).
Ну там четных 4 и нечетных 2 соответственно. Тоже не понятна задача!
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 12.12.2021, 16:28   #3
solmyashzz
Пользователь
 
Регистрация: 12.12.2021
Сообщений: 10
По умолчанию

newerow1989, извиняюсь за ошибку.
solmyashzz вне форума Ответить с цитированием
Старый 12.12.2021, 16:29   #4
solmyashzz
Пользователь
 
Регистрация: 12.12.2021
Сообщений: 10
По умолчанию

newerow1989, поправил условие
solmyashzz вне форума Ответить с цитированием
Старый 12.12.2021, 16:47   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var i, a, n1, n2: integer;
    s, s1, s2: string;
    c: char;
begin
   Write('a = '); Readln(a);
   s:='1';
   for i:=2 to a div 2 do
      if a mod i = 0 then
         s:=s+' '+IntToStr(i);
   if a<>1 then
      s:=s+' '+IntToStr(a);
   Writeln(s);
   n1:=0;
   n2:=0;
   s1:='';
   s2:='';
   for c:='0' to '9' do
      if Pos(c, s)>0 then
      begin
         if Ord(c) mod 2 = 1 then
         begin
            Inc(n1);
            s1:=s1+c+' ';
         end;
         if Ord(c) mod 2 = 0 then
         begin
            Inc(n2);
            s2:=s2+c+' ';
         end;
      end;
   if s1<>'' then
      Delete(s1, Length(s1), 1);
   if s2<>'' then
      Delete(s2, Length(s2), 1);
   Writeln('chetnyh   - ', n2, ' (', s2, ')');
   Writeln('nechetnyh - ', n1, ' (', s1, ')');
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача по Java на работу с массивами. ddaarrtt Помощь студентам 5 07.01.2019 11:27
Работа с вложенными массивами. Обработка двумерного массива(Pascal) nazar_vol Помощь студентам 0 09.06.2013 12:40
задача на структуру(struct)/задача на работу с файлом SevenArth Помощь студентам 0 26.04.2012 19:06
Pascal. Задача на работу с массивами. Hallas Помощь студентам 2 04.12.2011 21:06
Задача на Паскаль с вложенными Impario Помощь студентам 7 29.12.2008 16:14