import copy – импортируется модуль copy
x = {'one': 1, 'two_three': [2, 3]} – создается словарь с ключами one и two_three и значениями 1 и [2, 3]
y = copy.copy(x) – y указывает на поверхностную копию x. Поверхностная копия – копия, у которой такие же ключи и значения, что и в оригинале. В отличии от copy.deepcopy – глубокого копирования – значения ссылаются на те же объекты, что и оригинал
y['one'] = 'I' – ключу one нового объекта присваивается значение 'I'. В старом объекте ничего не меняется
y['two_three'][0] = 'II' – в значении по ключу two_three нового объекта берется первый элемент (нумерация начинается с нуля) и заменяется на 'II'. Поскольку в старом объекте по этому ключу находится тот же самый объект, то при печати и там список будет изменен
y['two_three'][1] = 'III' – аналогично со вторым элементом списка
print(x) – выводится содержимое x, то есть {'one': 1, 'two_three': ['II', 'III']}
print(y) – выводится содержимое y, то есть {'one': 'I', 'two_three': ['II', 'III']}
На экран будут выведены две строки, написанные выше
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.
n,n2,k:integer;
begin
readln(n);
k:=1000;
while n<>0 do
begin
n2:=n2+k*(n mod 10);
n:=n div 10;
k:=k div 10;
end;
writeln(n2);
end.
2)var
x,y:real;
begin
readln(x);
y:=sqrt(sqr(x)+1)-2*sqr(x)-3/5;
writeln(y);
end.
1*)//Pascal ABC. NET v3.0 сборка 1111
var
s:string;
begin
readln(s);
s.Reverse.Print('');
end.