<em>Как говорится, это вам не С++ - тут все очень быстро и коротко ))))
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var L:=new List<(string,real)>;
// это не решение задачи, это ввод данных
Writeln('Введите в каждой строке фамилию, пробел, время');
var i:=1;
repeat
var s:=ReadlnString(i+': ');
if s[1]='*' then break;
var w:=s.ToWords;
L.Add(Rec(w[0],real.Parse(w[1])));
i+=1;
until false;
// а теперь само решение
Writeln(L.MinBy(x->x[1]))
end.
<u>Пример</u>
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)
Аналогично
begin
for var a := 100 to 999 do begin
for var b := 100 to 999 do begin
if a * b = a + b then writeln(a,'-', b);
end;
end;
end.
На паскале :
var x1,x2,x3,y1,y2,y3,ax,bx,ay,by,a,b,p,s:integer;
begin
readln(x1); readln(y1); readln(x2); readln(y2);
x3:=x1; y3:=y2; //координаты 3 точки
ax:=x1-x3; ay:=y1-y3; bx:=x2-x3; by:=y2-y3; //координаты направляющих векторов
a:=sqrt(sqr(ax)+sqr(ay)); //длинна вектора
b:=sqrt(sqr(bx)+sqr(by)); //длинна вектора
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(p);
writeln(s);
end.
0000.0001.0010.0011.0100.0101,0110,0111,1000,1001,1010,1011,1100,1101,1110,1111. Всього 16 паролей.