Pascal

Pascal

begin
end.

Работа с текстовыми файлами. Чтение и запись:

var
   f1,f2:text;
   sum,a,b:integer;
begin
   Assign(f1,'input.dat');
   Assign(f2,'output.sol');
   Rewrite(f2);
   Reset(f1);
   Read(f1, a);
   Read(f1, b);
   close(f1);
   sum:=a+b;
   Write(f2, sum);
   close(f2);
 end.

program '''Сonversion''';

uses
  SysUtils;
const
   nmax=1000000000;
var
   i,v,x,m,j:integer;
   a:array[1..nmax] of byte;
begin
   i:=0;
   ReadLn(x,m);   {Вводим число x которое необходимо перевести в систему исчисления с основанием m}
   v:=x;
   While v>0 do
    begin
      inc(i);
      a[i]:=v mod m;
      v:=v div m
    end;
   Write(x,' in the calculus of reason ',m,' = ');
   for j:=i downto 1 do
      Write(a[j]);
   ReadLn;
end.