<em>var x1,x2,y1,y2,s:real; </em>
<em>begin </em>
<em>writeln('Введите координаты точки A'); write('X='); </em>
<em>read(x1); </em>
<em>write('Y='); </em>
<em>read(y1); </em>
<em>writeln('Введите координаты точки B'); </em>
<em>write('X='); </em>
<em>read(x2); </em>
<em>write('Y='); </em>
<em>read(y2); </em>
<em>s:=sqrt(sqr(x2-x1)+sqr(y2-y1)); </em>
<em>writeln(s);</em><span><em> </em>
<em>end.</em></span>
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
for var i:=1 to s.Length do
case s[i] of
'ч':s[i]:='ц';
'ц':s[i]:='ч'
end;
s.Println
end.
<u>Пример</u>
черная цапля циркулем чертила
церная чапля чиркулем цертила
В <span>байте 8 бит, 1 символ кодируется одним байтом, соответственно урок - 4 байт... Но это зависит от кодировки, в разных кодировках символ занимает разное количество байт.</span>
Program YaBidlo;
Var
i, A: longint;
x,
u, j,
N, m : longint;
Function FDiv (A, left : LongInt) : LongInt;
var
d,
i : longint;
begin
d := 1;
for i := left to Trunc (Sqrt (A)) do
if (A mod i = 0)
then
begin
d := i;
Break;
end;
if (d <> 1)
then
FDiv := d
else
FDiv := A;
end;
Function g (N, u : longint) : longint;
var
i : longint;
begin
i := 0;
while (N mod u = 0)
do
begin
Inc (i);
N := N div u;
end;
g := i;
end;
Begin
Assign (Input, 'input.txt');
Assign (Output, 'output.txt');
Reset (Input);
Read (A);
Close (Input);
m := 0;
N := 1;
i := FDiv (A, 2);
u := 2;
while (A > 1)
do
begin
N := N * i;
j := 0;
while (A mod i = 0)
do
begin
Inc (j);
A := A div i;
end;
if (j > m)
then
begin
m := j;
u := i;
end;
i := FDiv (A, i + 2);
end;
x := 1;
while (g (N * x, u) * N * x < m)
do
Inc (x);
N := N * x;
ReWrite (Output);
Write (N);
Close (Output);
End.
