решить задачу по информатике в паскале Задача : Возраст Андрея записан в переменной a, а возраст Бориса – в переменной b. Нужно определить, кто из них старше.
У вас есть число 137 если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.). начнём: 137 / 2 = 68 выписываем остаток (1) 68 / 2 = 34 выписываем остаток (0) 34 / 2 = 17 выписываем остаток (0) 17 / 2 = 8 выписываем остаток (1) 8 / 2 = 4 выписываем остаток (0) 4 / 2 = 2 выписываем остаток (0) 2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001; ответ: 001001
begin
var a := new integer[5, 5](
(2, 4, 5, 1, 3),
(7, 2, 9, 0, 2),
(6, 4, 1, 0, 1),
(8, 4, 7, 2, 0),
(6, 0, 0, 2, 1));
Println('Массив A');
a.Println(2);
Println('Массив B');
var b := new integer[5, 5](
(2, 4, 5, 0, 3),
(6, 0, 3, 2, 1),
(2, 4, 5, 1, 3),
(8, 4, 7, 2, 0),
(6, 2, 0, 2, 1));
b.Println(2);
Println('Массив A');
var c := new integer[5, 5];
var (upper, lower) := (0, a.RowCount - 1);
for var i := 0 to a.RowCount - 1 do
begin
var found := False;
for var j := 0 to b.RowCount - 1 do
if a.Row(i).SequenceEqual(b.Row(j)) then
begin
c.SetRow(upper, a.Row(i));
upper += 1;
Found := True;
break
end;
if not found then
begin
c.SetRow(lower, a.Row(i));
lower -= 1;
end
end;
a := Copy(c);
c := nil; // удаляем с
a.Println(2)
end.
если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.).
начнём:
137 / 2 = 68 выписываем остаток (1)
68 / 2 = 34 выписываем остаток (0)
34 / 2 = 17 выписываем остаток (0)
17 / 2 = 8 выписываем остаток (1)
8 / 2 = 4 выписываем остаток (0)
4 / 2 = 2 выписываем остаток (0)
2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001;
ответ: 001001