|
Вернуться
| 21 Шмидт А. А. [AS PPS] (SKYDOS), 17 марта 2010 г. 11:35:43 | |
|
и кому это надо?
|
|
|
| 22 Саенко Антон Сергеевич, 17 марта 2010 г. 11:29:23 | |
var k1,k2,m1,m2,t,v,f,l1,l2:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(k1,l1,m1);
read(k2,l2,m2);
t:=k1*m1+k2*m2;
v:=(k1 div 100)*(100-l1);
f:=(k2 div 100)*(100-l2);
if v=f then writeln(t-(v*m1+f*m2))
else if v>f then writeln(t-(f*m1+f*m2))
else writeln(t-(v*m1+v*m2));
close(input);
close(output);
end.
|
|
|
| 23 Омельяненко Андрей Николаевич, 17 марта 2010 г. 11:20:14 | |
Var
i,n,m,k,j,l,x,y : LongInt;
a : Array [1..1000] of Longint;
Begin
Assign (Input,'Input.txt');
Reset (Input);
Assign (Output,'Output.txt');
Rewrite (Output);
Read (n);
For i:=1 to n do
read(A[i]);
read(m);
While m>0 do
begin
readln(x,y);
For i:=x to y do
Write (a[i],' ');
Writeln;
dec(m);
end;
Close (Input);
Close (Output);
End.
|
|
|
| 24 Омельяненко Андрей Николаевич, 17 марта 2010 г. 11:16:53 | |
Var a,c,v,b,n,m,x,i,o,l,k,q,w,e,r,t,y:LongInt;
p:Char;
begin
Assign(Input,'Input.txt');
reset(Input);
Assign(Output,'Output.txt');
Rewrite(output);
Read(x);
For i:=1 to x do
begin
Read(o);
l:=o+1;
a:=l div 100000;
c:=l div 10000 mod 10;
v:=l div 1000 mod 10;
b:=l div 100 mod 10;
n:=l div 10 mod 10;
m:=l mod 10;
k:=o-1;
q:=k div 100000;
w:=k div 10000 mod 10;
e:=k div 1000 mod 10;
r:=k div 100 mod 10;
t:=k div 10 mod 10;
y:=k mod 10;
if (a+c+v=b+n+m) then WriteLn('Yes')
else if(q+w+e=r+t+y) then WriteLn('Yes')
else WriteLn('No');
end;
Close(Input);
close(Output);
end.
|
|
|
| 25 Саенко Антон Сергеевич, 17 марта 2010 г. 11:09:28 | |
var n,i,j,a,b,x:Longint;
begin
assign(Input,'Input.txt');
reset(Input);
assign(Output,'Output.txt');
rewrite(Output);
read(n,i,j);
if i=j then writeln(0)
else begin
if j<i then begin
x:=i;
i:=j;
j:=x;
end;
a:=j-(i+1);
b:=n-(j+1)+i;
if a>b then writeln(b)
else writeln(a);
end;
close(Input);
close(Output);
end.
|
|
|
| 26 Саенко Антон Сергеевич, 17 марта 2010 г. 10:56:01 | |
var i,j,n,s,x:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
s:=0;
for i:=1 to n do
for j:=1 to n do
begin
read(x);
s:=s+x;
end;
writeln(s div 2);
close(input);
close(output);
end.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| |
