Помогите написать программу.
Вобщем условие следующее...

Какие из трёх значений:

1. AA'16;
2. 240'8 + 1010'2;
3. A'16 + A'16.

совпадают между собой.

(то что после апострофа это система счисления.)

Буду рад вашей помощи.

Попробуй привести все значения к десятеричной системе счисления, например, и сравнивай..В интернет полно примеров перевода из одной системы счисления в другую на Delphi,например.

спешел фо ю до 512 хватит?Нажмите для просмотра прикрепленного файла

А чего это в интернете? У нас в FAQ-е лежит. И не на Дельфи, а на Паскале.

amega, дубликат поста удалил...

1 и 2 по 170.
3 = 20

И что? Это что, программно вычислено? Или простой флейм? Что толку с этих результатов? А преподаватель при сдаче попросит сравнить
206'16
240'8 + 101100010'2;
1006'8
И что делать? Говорить ему: "секунду, я сейчас у ~Sl1z3r*-а спрошу, погодите"? Топикстартеру сказали, где искать программы перевода, НЕ НАДО за него переводить числа. Это его задание, пускай он и решает.

Ничего.

Нет, на листочке.

сложный.

Можно перепроверить свои.

Тоже вариант.

st3lz, вот, если самому искать трудно..
~Sl1z3r*, с таким подходом, ты, скорее всего, ошибся ресурсом..

Спасибо за ссылку. очень помогла.
Ток не пойму как "спасибо" сказать

Собсно вот что вышло...всё работает...всё отлично.

uses crt;
var a,b,c,d,e:string;
    aa,bb,cc,dd,ee,i,j,l,m,k,q,w:longint;
    v:integer;

function ToDec(n:string; radix:longint):longint;
var m, i: longint;
const digit: string[16]='0123456789ABCDEF';
begin
 m:=0;
 while (n[1]='0') and (length(n) > 1) do delete(n,1,1);
 for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
 ToDec:=m;
end;

begin
clrscr;

readln(a);readln(aa);
readln(b);readln(bb);
readln©;readln(cc);
readln(d);readln(dd);
readln(e);readln(ee);

i:=ToDec(a,aa);
j:=ToDec(b,bb);
k:=ToDec(c,cc);
l:=ToDec(d,dd);
m:=ToDec(e,ee);
q:=j+k;
w:=l+m;

writeln('+++++++++++');

if (i=q) then writeln ('1 and 2 (',i,')') else
if (q=w) then writeln ('2 and 3 (',q,')') else
if (w=i) then writeln ('1 and 3 (',w,')') else
if (i=q) and (q=w) and (w=i) then writeln ('1,2 and 3 (',i,')') else
if (i<>q) and (q<>w) and (w<>i) then writeln ('Net sovpadenii')

readln;
end.