program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
Var x ,y: integer;
begin
for x:=-4 to 4 do
begin
y:=2*x*x*x-7*x;
writeln('При x = ', x, ' y = ', y);
end;
<span>end.</span>
Ярлык - короткий путь до файла
например, ярлык может указывать на файл E:\members\mem.exe
Если же ярлык скопировать на другой компьютер, то файл просто не будет найден, так как ни папки members, ни файла mem.exe на другом компьютере может не быть
Program summa;
uses crt;
var x,y,s: real;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
s=a+b;
write('s=',a,'+',b,'=',s);
readln;
end.