Ответ:
0
Объяснение:
Любое число при умеожении на 0 даёт 0. Следовательно неважно какие числа будут стоять на месте букв, ведь в конце они все равно будут умножены на 0
Var x1a,y1a,x2a,y2a,L1,L2,x1b,y1b,x2b,y2b,:real;
begin;
readln(x1a);
readln(y1a);
readln(x2a);
readln(y2a);
readln(x1b);
readln(y1b);
readln(x2b);
readln(y2b);
l1:=sqrt(sqr(x2a-x1a)+sqr(y2a-y1a));
l2:=sqrt(sqr(x2b-x1b)+sqr(y2b-y1b));
if I1>l2 then writeln('Первый');
if l1<l2 then writeln('Второй');
if l1=l2 then writeln('Равны');
end.
var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.
1 гб = 1024 мб
1 мб = 1024 кб
0.00390626 гб = 4 мб = 4096 кб