Uses
crt;
var
num1,num2,num3:integer;
chtenie:text;
zapis:text;
{фунция перевода числа в троичную систему счисления}
function FromDec(n:longint):string;
var
s:String;
const
digit:string[16]=0123456789ABCDEF;
begin
s:=;
repeat
s:=digit[(n mod 3)+1]+s;
n:=n div 3;
until n=0;
FromDec:=s;
end;
{осоновная программы}
begin
{читаем из файла}
assign(chtenie,Exemp5.in);
reset(chtenie);
read(chtenie,num1);
read(chtenie,num2);
close(chtenie);
{записываем в файл}
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.