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( ) убрать
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.
ответ: Работа с римскими цифрами:
– Римские цифры: I = 1, V = 5, X = 10, L = 50, C = 100, D = 500, M = 1000
– Если цифра меньшего номинала стоит перед цифрой большего номинала, то её значение вычитается, при этом V не вычитается.
– Не должно быть больше трёх одинаковых цифр подряд
– Вычитаться не может больше одной одинаковой цифры
1. XI = 10 + 1 = 11
IX = -1 + 10 = 9
LX = 50 + 10 = 60
CLX = 100 + 50 + 10 = 160
MDCXLVIII = 1000 + 500 + 100 - 10 + 50 + 5 + 1 + 1 + 1 = 1648
2. 13 = 10 + 1 + 1 + 1 = XIII
99 = -10 + 100 - 1 + 10 = XCI (в упрощенной системе записи допустимо -1 + 100 = IC)
666 = 500 + 100 + 50 + 10 + 5 + 1 = DCLXVI
1692 = 1000 + 500 + 100 - 10 + 100 + 1 + 1 = MDCXCII
Если в десятичной системе счисления числа записываются по степеням 10 (например, 123 = 1 * 100 + 2 * 10 + 3 * 1), то в системе с основанием b всё записывается по степеням числа b (). При этом цифры в системе счисления с основанием b принимают значение от 0 до b - 1; если цифр не хватает, то в ход идут буквы: A = 10, B = 11, C = 12, ...
3. Двоичная СС:
Троичная СС:
4. Обозначаем основание системы счисления за b, расписываем каждое число и получаем уравнения:
1) 5 + 4 = b + 1
b = 8
2) 4 + b + 1 = 2b
b = 5
3) b + 1 + b = b^2 + 1
b = 0 или 2 – основание сс не может быть равно 0
b = 2
4) b + 5 = 15
b = 10 – не подходит, в десятичной сс не может быть цифры F
ответ: 1) в восьмеричной, 2) в пятеричной, 3) в двоичной, 4) такого не бывает ни в какой системе счисления
Объяснение: