program z_1;
var
a, b: array [1..3] of Integer;
i, imax, btmp: Integer;
ine: boolean;
Begin
for i := 1 to 3 do begin
Read (a [i]);
b [i] := 0;
end;
ine := False;
for i := 1 to 3 do begin
if a [i] mod 3 = 0 then begin
b [i] := a [i];
Ine := True;
end else
b [i] := 0;
end;
if ine then begin
imax := 1;
for i := 2 to 3 do
if b [i] > b [imax] then
imax := i;
btmp := b [imax];
b [imax] := b [1];
b [1] := btmp;
if b [2] < b [3] then begin
btmp := b [2];
b [2] := b [3];
b [3] := btmp;
end;
WriteLn;
for i := 1 to 3 do
if b [i] <> 0 then
Write (b [i], ' ');
end else
WriteLn ('Значений нет.');
ReadLn;
ReadLn;
end.
program z_1;
var
a, b, c, k, t: integer;
begin
k := 3;
Read(a, b, c);
if Abs(a) mod 3 <> 0 then
k := 2;
if Abs(b) mod 3 = 0 then
begin
if k = 2 then
a := b
end
else
Dec(k);
if Abs(c) mod 3 = 0 then
begin
if k = 1 then
a := c
else if k = 2 then
b := c;
end
else
Dec(k);
case k of
0: Write('Значений нет');
1: Write(a);
else
begin
if b > a then
begin
t := a;
a := b;
b := t;
end;
if k = 3 then
begin
if c > b then
begin
t := b;
b := c;
c := t;
end;
if b > a then
begin
t := a;
a := b;
b := t;
end;
Write(a, ' ', b, ' ', c);
end
else
Write(a, ' ', b);
end;
end
end.
Если отрицательными числа быть не могут, можно Abs( ) убрать
