<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
type
Pt = record
x, y: real
end;
Res = record
P1, P2: Pt;
L2: real
end;
function L(M1, M2: Pt): Res;
begin
Result.P1 := M1;
Result.P2 := M2;
Result.L2 := Sqr(M2.x - M1.x) + Sqr(M2.y - M1.y)
end;
begin
var M := new Pt[3];
var R := new Res[3];
for var i := 0 to 2 do
Read(M[i].x, M[i].y);
R[0] := L(M[0], M[1]);
R[1] := L(M[0], M[2]);
R[2] := L(M[1], M[2]);
var minr := R.MinBy(t -> t.L2);
var s := $'({minr.P1.x},{minr.P1.y}) и ({minr.P2.x},{minr.P2.y})';
Println('Минимальное расстояние между точками', s)
end.
<h2>Пример</h2><h3>-2 1.5 0.5 3 3 -2</h3><h3>Минимальное расстояние между точками (-2,1.5) и (0.5,3) </h3>
Задание 1
var
s:string;
digit:set of '0'..'9';
i,imax:integer;
begin
Write('Введите строку: '); Readln(s);
imax:=Length(s)-1;
i:=imax;
digit:=['0'..'9'];
while i>=2 do begin
if (not (s[i] in digit)) and (s[i+1] in digit) and (s[i-1] in digit)
then Delete(s,i,1);
Dec(i)
end;
Writeln('Результат: ',s)
end.
Тестовое решение
Введите строку: 12*3aa456*78aa
Результат: 123aa45678aa
Var a,s: real;
begin
write('длина стороны: ');
readln(a);
s:=a*a*sin(pi/3)/2;
writeln('площадь треугольника = ',s:6:4);
end.
<span>
</span>
Macedonia, FYR MKD
Population, male 1041429
Population, female 1041731
1041731-1041429 = 302
Республика Македония
Вообщем все просто.
Берешь исходное число 8310.
и делаешь следующее.
8310 / 2 = 4155, остаток 0
4155 / 2 = 2077, остаток 1
2077 / 2 = 1038, остаток 1
1038 / 2 = 519, остаток 0
519 / 2 = 259, остаток 1
259 / 2 = 129, остаток 1
129 / 2 = 64, остаток 1
64 / 2 = 32, остаток 0
32 / 2 = 16, остаток 0
16 / 2 = 8, остаток 0
8 / 2 = 4, остаток 0
4 / 2 = 2, остаток 0
2 / 2 = 1, остаток 0
1 / 2 = 0, остаток 1
И твое число в двоичной система будет снизу вверх из чисел остатка, а то есть 10000001110110