Var f: string := 'output1.txt'; fo: array of string := ('out1.txt', 'out2.txt', 'out3.txt'); bools: array [0..2] of boolean; a, b: integer;
begin System.IO.File.WriteAllText(f, ''); foreach str: string in fo do System.IO.File.WriteAllText(str, '');
readln(a, b); for i: integer := a to b do System.IO.File.AppendAllText(f, i.toString() + System.Environment.NewLine);
foreach str: string in System.IO.File.ReadAllLines(f) do begin b := StrToInt(str); bools[System.Math.Sign(b) + 1] := true; System.IO.File.AppendAllText(fo[System.Math.Sign(b) + 1], b.ToString() + System.Environment.NewLine); end;
for i: integer := 0 to 2 do if not (bools[i]) then begin write('В файле с '); case i of 2: write('положительными'); 1: write('нулевыми'); 0: write('отрицательными'); end; writeln(' значениями нет записей'); end; end.
begin readln(n); for i: byte := 1 to n do begin readln(buf); if (buf > 0) then if (p2 = 0) then p2 := buf else p2 := p2 * buf else if (p1 = 0) then p1 := buf else p1 := p1 * buf; end;
writeln('P1 = ', p1, #13, 'P2 = ', p2);
if (abs(p1) > abs(p2)) then writeln('|', p1, '| > |', p2, '|') else if (abs(p1) < abs(p2)) then writeln('|', p1, '| < |', p2, '|') else writeln('|', p1, '| = |', p2, '|') end.
f: string := 'output1.txt';
fo: array of string := ('out1.txt', 'out2.txt', 'out3.txt');
bools: array [0..2] of boolean;
a, b: integer;
begin
System.IO.File.WriteAllText(f, '');
foreach str: string in fo do
System.IO.File.WriteAllText(str, '');
readln(a, b);
for i: integer := a to b do
System.IO.File.AppendAllText(f, i.toString() + System.Environment.NewLine);
foreach str: string in System.IO.File.ReadAllLines(f) do
begin
b := StrToInt(str);
bools[System.Math.Sign(b) + 1] := true;
System.IO.File.AppendAllText(fo[System.Math.Sign(b) + 1], b.ToString() + System.Environment.NewLine);
end;
for i: integer := 0 to 2 do
if not (bools[i]) then
begin
write('В файле с ');
case i of
2: write('положительными');
1: write('нулевыми');
0: write('отрицательными');
end;
writeln(' значениями нет записей');
end;
end.
p1, p2, buf: real;
n: byte;
begin
readln(n);
for i: byte := 1 to n do
begin
readln(buf);
if (buf > 0) then
if (p2 = 0) then
p2 := buf
else
p2 := p2 * buf
else
if (p1 = 0) then
p1 := buf
else
p1 := p1 * buf;
end;
writeln('P1 = ', p1, #13, 'P2 = ', p2);
if (abs(p1) > abs(p2)) then
writeln('|', p1, '| > |', p2, '|')
else
if (abs(p1) < abs(p2)) then
writeln('|', p1, '| < |', p2, '|')
else
writeln('|', p1, '| = |', p2, '|')
end.