Задачу решается вот таким жутким перебором (который, если немного подумать можно ещё сократить): //Рюмка+рюмка=авария var a,b,c,d,e,f,g,h:integer; begin for a:=1 to 9 do //р for b:=0 to 9 do //ю if (b<>a) then for c:=0 to 9 do //м if (c<>a)and(c<>b) then for d:=0 to 9 do //к if (d<>a)and(d<>b)and(d<>c) then for e:=1 to 1 do //а if (e<>a)and(e<>b)and(e<>c)and(e<>d) then for f:=0 to 9 do //в if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e)then for g:=0 to 9 do //и if (g<>a)and(g<>b)and(g<>c)and(g<>d)and(g<>e)and(g<>f)then for h:=2 to 2 do //я if (h<>a)and(h<>b)and(h<>c)and(h<>d)and(h<>e)and(h<>f)and(h<>g)then if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h); end.
#include "conio.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
cout << "Добро в магазин книг!" << endl;
cout << "Выберите книгу из предложенного списка." << endl;
cout << "Список:" << endl << "1. Книга 1. " << "Стоимость 590 рублей" << endl; cout << "2. Книга 2. " << "Стоимость 440 рублей" << endl << "3. Книга 3. " << "Стоимость 330 рублей" << endl;
int a, b, k, d;
cout << endl;
cin >> d;
if (d <= 3)
{
switch (d)
{
case (1):
{
k = 590;
break;
}
case (2):
{
k = 440;
break;
}
case (3):
{
k = 330;
break;
}
}
cout << "Внесите платеж!" << endl;
cin >> a;
if (a > k)
{
b = a - k;
cout << "Возьмите сдачу " << b << " рублей.";
}
else if (a < k)
{
b = k - a;
cout << "Внесенной вами суммы недостаточно для покупки товара!" << endl; cout << "Доплатите " << b << " рублей" << endl;
}
else if (a = k)
cout << " за покупку!" << endl;
}
else
{
cout << "Выбери книгу из предложенного списка!" << endl;
}
_getch();
return 0;
}
//Рюмка+рюмка=авария
var a,b,c,d,e,f,g,h:integer;
begin
for a:=1 to 9 do //р
for b:=0 to 9 do //ю
if (b<>a) then
for c:=0 to 9 do //м
if (c<>a)and(c<>b) then
for d:=0 to 9 do //к
if (d<>a)and(d<>b)and(d<>c) then
for e:=1 to 1 do //а
if (e<>a)and(e<>b)and(e<>c)and(e<>d) then
for f:=0 to 9 do //в
if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e)then
for g:=0 to 9 do //и
if (g<>a)and(g<>b)and(g<>c)and(g<>d)and(g<>e)and(g<>f)then
for h:=2 to 2 do //я
if (h<>a)and(h<>b)and(h<>c)and(h<>d)and(h<>e)and(h<>f)and(h<>g)then
if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then
writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h);
end.
Результат:
85931 171862