// Козак Вус i важлива знахiдка
var
f,f2:text;
I,J: integer;
A,B,C,D,A1,B1,C1,D1,P,PX: int64;
S,X: array [1..4]of int64;
begin
Assign (f,'lesson.in');
Reset (f);
read (f,A,B,C,D);
S[1]:=A*(B+C-D);
B1:=A;
D1:=B;
C1:=D;
A1:=C;
S[2]:=A1*(B1+C1-D1);
B:=A1;
D:=B1;
C:=D1;
A:=C1;
S[3]:=A*(B+C-D);
B1:=A;
D1:=B;
C1:=D;
A1:=C;
S[4]:=A1*(B1+C1-D1);
for I:=1 to 4 do
X[I]:=I;
for I:=1 to 3 do
for J:=I+1 to 4 do
if S[I]<S[J] then
begin
P:=S[I];
S[I]:=S[J];
S[J]:=P;
PX:=X[I];
X[I]:=X[J];
X[J]:=PX
end;
{for I:=1 to 4 do
Write (S[I],' ',X[I]-1,' ');}
Assign (f2,'lesson.out');
Rewrite (f2);
Write (f2,X[1]-1);
Close (f2);
end.
ДРУГА
var
f,f2 :text;
N,M,P,P1,P2,X : int64;
T:boolean;
begin
T:=false;
Assign (f,'room.in');
Reset (f);
Read (f,N,M,P);
if (M>2) and ((6*N+2*M)=P) then
begin
Assign (f2,'room.out');
Rewrite (f2);
Writeln (f2,'YES');
Writeln (f2,N,' ',1);
Writeln (f2,N,' ',1);
Writeln (f2,N,' ',M-2);
Close (f2);
T:=true;
end else
if N>1 then
for X:=1 to M-1 do
begin
P2:=2*(2*N+2*M-X);
if P=P2 then begin
Assign (f2,'room.out');
Rewrite (f2);
Writeln (f2,'YES');
Writeln (f2,N,' ',X);
Writeln (f2,1,' ',(M-X));
Writeln (f2,(N-1),' ',(M-X));
Close (f2);
T:=true;
break;
end;
end;
if T=false then
begin
Assign (f2,'room.out');
Rewrite (f2);
Writeln (f2,'NO');
Close (f2);
end;
end.
ФУТБОЛ
var
f,f2 :text;
X,S,I : int64;
T:boolean;
begin
Assign (f,'football.in');
Reset (f);
Read (f,X);
Close(f);
S:=0;
I:=1;
while (X>S) do
begin
S:=S+I;
I:=I+1;
end;
If X=S then
begin
Assign (f2,'football.out');
Rewrite (f2);
Writeln (f2,I-1);
Close (f2);
end else begin
Assign (f2,'football.out');
Rewrite (f2);
Writeln (f2,-1);
Close (f2);
end;
end.
Парне чи непарне
var
f,f2 :text;
X,S,I,N,J : int64;
P:double;
//T:boolean;
C : string;
begin
Assign (f,'even-or-odd.in');
Reset (f);
Read (f,N);
C:='';
for I:=1 to N do
begin
read (f,X);
P:=SQRT (X);
if frac(P)>0 then
C:=C+'0' else C:=C+'1';
end;
Close(f);
Assign (f2,'even-or-odd.out');
Rewrite (f2);
Writeln (f2,C);
Close (f2);
end.
Немає коментарів:
Дописати коментар