Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 22.10.2015
Сообщений: 32

Составить программы для решения ребусов

22.10.2015, 14:55. Показов 1691. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Напишите программу решения ребусов с использованием ТРИ+ДВА=ПЯТЬ
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.10.2015, 14:55
Ответы с готовыми решениями:

Составить и записать алгоритм для решения
Помогите составить алгоритм и нарисовать блок схему для решения задачи(саму программу делать не надо): Задано натуральное число N,...

Составить программу для решения задачи
а). Найти сумму элементов целочисленного массива (Z1, Z2,...,Z20), значения, которых кратны 3. б). Вычислить произведение...

3.17. Составить алгоритм и написать программу для решения
Даны четырехзначные натуральные числа N и K (N, K <=1000). Из чисел от N до K выбрать те, запись которых содержит ровно три одинаковых...

2
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
22.10.2015, 15:44
Цитата Сообщение от Dzufear Посмотреть сообщение
использованием ТРИ
Цитата Сообщение от Dzufear Посмотреть сообщение
с использованием ТРИ+ДВА=ПЯТЬ
Это как?
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
22.10.2015, 16:19
Лучший ответ Сообщение было отмечено Dzufear как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var
  t,r,i,d,v,a,p,y,q : Byte;
Begin
  For t:=1 to 9 do
   For r:=0 to 9 do
    For i:=0 to 9 do
     For d:=1 to 9 do
      For v:=0 to 9 do
       For a:=0 to 9 do
        For p:=1 to 9 do
         For y:=0 to 9 do
          For q:=0 to 9 do
            If (t<>r) and (t<>i) and (t<>d) and (t<>v) and (t<>a) and (t<>p) and (t<>y) and (t<>q) and
               (r<>i) and (r<>d) and (r<>v) and (r<>a) and (r<>p) and (r<>y) and (r<>q) and
               (i<>d) and (i<>v) and (i<>a) and (i<>p) and (i<>y) and (i<>q) and
               (d<>v) and (d<>a) and (d<>p) and (d<>y) and (d<>q) and
               (v<>a) and (v<>p) and (v<>y) and (v<>q) and
               (a<>p) and (a<>y) and (a<>q) and
               (p<>y) and (p<>q) and
               (y<>q) then
              If t*100+r*10+i+d*100+v*10+a=p*1000+y*100+t*10+q then
                Writeln(t,r,i,' + ',d,v,a,' = ',p,y,t,q);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.10.2015, 16:19
Помогаю со студенческими работами здесь

Составить программу для решения квадратного уравнения
1. Установить уровень учебных достижений ученика (1,2,3,4) соответственно к заданной оценки (от 1 до 12). 2. Заданно три цифровое число....

Составить блок-схему и написать программу на языке Паскаль для решения следующих задач:
2. Велосипедист массой М кг движется со скоростью V м/с по вогнутому мосту, траектория его движения является дугой окружности радиусом R м....

Составить блок-схему и написать программу на языке Паскаль для решения следующих задач:
1. Определить стоимость международного телефонного разговора, если известны тариф, длительность разговора, скидка (%).

Составить программу для решения уравнения f(x)=0 на отрезке [A,B} с точностью Е методом деления отрезка попола
Помогите подставить в исходник математическое уравнение Сам исходник я благо нашел на просторах форума: ...

Составить программу для решения уравнения
Составить программу для решения уравнения a·|x| = b, где a и b - заданные действительные числа.


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru