Program MinDist;
{$APPTYPE CONSOLE}
uses sysutils;
const
k = 100;
ax = 10;
ay = -2;
var
T: array[1..k, 1..2] of integer;
r, rmin, i, n: integer;
begin
write('Введите число точек на плоскости: ');
readln(n);
rmin := 32767;
Randomize;
writeln('Исходные данные:');
for i := 1 to n do
begin
T[i, 1] := Random(51) - 25;
T[i, 2] := Random(51) - 25;
r := sqr(T[i, 1] - ax) + sqr(T[i, 2] - ay);
if rmin > r then rmin := r;
writeln('(', T[i, 1], ',', T[i, 2], ')')
end;
writeln(#13#10, 'Минимальное расстояние от А(', ax, ',', ay, ') равно: ', sqrt(rmin))
end.
Ответ:
8
Объяснение:
По росту ученики стоят так (самый высокий 6, самый низкий 1):
3 4 1 6 5 2
1) 3 4 6 1 5 2
2) 3 6 4 1 5 2
3) 6 3 4 1 5 2
4) 6 3 4 5 1 2
5) 6 3 5 4 1 2
6) 6 5 3 4 1 2
7) 6 5 4 3 1 2
8) 6 5 4 3 2 1
Дан АВСД-прямоуг. АВ=А; ВС=А-В
1)ВС=20-5=15
S=AB*BC=20*15=300
P=2AB+2BC=2*20+2*15=40+30=70
2) BC=12-3=9
S=12*9=108
P=2*12+2*9=24+18=42
1.отличаются от полной и не полной версии.
2.интернет магазин,брокерство,ставки,продажа вещей,продажа недвижимости,продажа земельных участков
Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if a<>b then begin
if (a>b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.
незачто