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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.11.2018, 22:22   #1
MSTXXR
Новичок
Джуниор
 
Регистрация: 11.11.2018
Сообщений: 2
По умолчанию Напишите программу

1)Написать программу, которая подсчитывает кол-во 1,2 и 3-х разрядных чисел в массиве, размер n на m из натуральных чисел в диапазоне от 1 до 999, заданном случайным образом (Двумерный массив)
2)Подсчитать кол-во чисел в этом массиве, которые содержат одинаковые цифры в своём написании

Pascal ABC(не .net)
Пожалуйста, очень срочно
MSTXXR вне форума
Старый 11.11.2018, 23:17   #2
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,306
По умолчанию

Описываешь переменные. Среди них опиши x1, x2, x3 - количество одно, двух и трёх разрядных чисел.
Код:
В цикле по k от 1 до n
   В цикле по i от 1 до m
      если числе меньше 10, то x1 = x1 + 1
      иначе, если число меньше 100, то x2=x2+1
      иначе x3 = x3 +1
   конец цикла по i
конец цикла по k
Вторая задачка посложнее будет. Так, например, одно число равно 2, а второе 22 или 222. Это как считать?
Ежели надо сравнивать числа только одного порядка, то можно, и это несложно, цифры сравниваемых чисел отсортировать, например, в порядке возрастания. Тогда критерий одинаковости - это разность чисел, в которых цифры отсортированы. Она должна быть нулевой.
Например.
Как-то так, ...
ViktorR вне форума
Старый 11.11.2018, 23:20   #3
MSTXXR
Новичок
Джуниор
 
Регистрация: 11.11.2018
Сообщений: 2
По умолчанию

Если бы я знал как все это делается, я бы не обратился сюда с помощью, а мне срочно нужно к завтрашнему дню, я не знаю как это все оформить (первую представляю, а вторую - никак)
MSTXXR вне форума
Старый 11.11.2018, 23:54   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума
Старый 12.11.2018, 17:48   #5
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию

MSTXXR, Напишите мне на почту vadimFreelance (co6аka) yandex (тчк) ru, решу за небольшое вознаграждение
Вадим Мошев вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Напишите программу на С++. Zvenigovv Помощь студентам 0 08.06.2013 12:41
Объявление и определение методов.Напишите функции в виде методов (подпрограмм). Напишите тестирующую программу с выдачей результа Vika_0_0 C# (си шарп) 0 04.10.2012 15:21
напишите программу на с++ Tolian92 Паскаль, Turbo Pascal, PascalABC.NET 1 18.05.2012 00:56
напишите программу Towuk Паскаль, Turbo Pascal, PascalABC.NET 4 08.03.2012 20:43
напишите программу nyncuk Помощь студентам 3 19.06.2008 14:39