Const n=10; m=5;
var
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.
Например для 45, полиндромом будет 54, а их произведение равно 2430.
Задание, по сути, очень простое для любых двузначных чисел.
Home
End
стерлки (вверх,вниз,право,лево)
Ctrl + стрелка вправо
Ctrl + стрелка влево
Page Up
Page Down
Ctrl + Page Down
Ctrl + Page Up
Ctrl + Home
Ctrl + End
Shift + F5
Shift + стрелка вправо/влево
<span>74 : 2 =
37 (остаток 0)</span>
37 : 2 = 18
(остаток 1)
18 : 2 = 9 (остаток
0)
9 : 2 = 4 (остаток
1)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
В ответе
записываем остатки с конца подсчетов
Ответ :
1001010
<span>
74(10)
= 1001010(2) </span>
23 : 2 = 11
(остаток 1)
11 : 2 = 5 (остаток
1)
5 : 2 = 2 (остаток
1)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ : 10111
<span>23(10) =
10111(2)</span>
17 : 2 = 8 (остатк
1)
8 : 2 = 4 (остаток
0)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ: 10001
<span>17(10) =
10001(2)</span>
2 : 2 = 1 (остаток
0)
1 : 2 = 0
(остаток 1)
Ответ: 10
<span>2<span>(10) </span>= 10(2) </span>