Форум программистов, компьютерный форум, киберфорум
Наши страницы

Составить алгоритм решения ребуса РАДАР = (Р + А + Д)^4 ( есть пример на паскале ) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Перевод кода из Pascal в C++ http://www.cyberforum.ru/cpp-beginners/thread1184442.html
Всем привет, мне нужна помощь в переводе кода из Pascal в C++. У самого получается с трудом, помогите кто сможет. 1)Даны две таблицы. Составить из них 3 таблицу, упорядоченную по возрастанию: ...
C++ Написать программу, которая будет запускать другие приложения по выбору пользователя нужно составить программу, которая будет вызывать другие 5 программ и по требованию запускать одну из них. как запустить одну программу я разобрался, а вот как сделать так чтоб она выдавала мне... http://www.cyberforum.ru/cpp-beginners/thread1184439.html
Составить программу для нахождения наибольшего общего делителя четырех натуральных чисел C++
Составить программу для нахождения наибольшего общего делителя четырех натуральных чисел.
Найти и вывести сумму элементов массива, которые имеют нечетное значение и являются трехзначными числами C++
в файле записано n целых чисел. элементы файла могут применять целые значения от 0 до 10 000. составьте программму позволяющие найти и вывести сумму элементов массива, которые имеют нечетное...
C++ Поменять в массиве наименьший элемент строки относительно главной диагонали.Найти сколько больше суммы столбца http://www.cyberforum.ru/cpp-beginners/thread1184412.html
В каждой строке наименьший элемент и поменять его местами с симметричным ему элементом относительно главной диагонали. Найти: Количество элементов, каждый из которых больше суммы остальных...
C++ Как посчитать количество положительных и отрицательных чисел в массиве? Вывожу 10 случайных чисел (-10....10), как подсчитать кол-во положительных чисел и кол-во отрицательных? #include<iostream> #include<cstdlib> #include<ctime> using namespace std; int... подробнее

Показать сообщение отдельно
ink-mate
0 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 30

Составить алгоритм решения ребуса РАДАР = (Р + А + Д)^4 ( есть пример на паскале ) - C++

22.05.2014, 10:02. Просмотров 305. Ответов 0
Метки (Все метки)

Составить алгоритм решения ребуса РАДАР = (Р + А + Д)4 (различные
буквы обозначают различные цифры, старшая — не 0).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
 
var
  r, a, d: 0 .. 9;
 
  dig : set of 0..9;
  sum, rad_4: longint;
 
begin
  clrscr;
  for r:=0 to 9 do begin
    include(dig,r);
    for a:=0 to 9 do if not (a in dig) then begin
      include(dig,a);
      for d:=0 to 9 do if not (d in dig) then begin
        include(dig,d);
 
          sum := r*10000 + a*1000 +d*100 + a*10 + r;
          rad_4:=sqr(sqr(r+a+d));
          if sum = rad_4 then
            writeln(r,a,d,a,r,'=(',r,'+',a,'+',d,')^4');
 
        exclude(dig,d);
      end;
      exclude(dig,a);
    end;
    exclude(dig,r);
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru