Дано число 4865267684563. в нем удалили восемь цифр, сдвинув оставшиеся вместе и не меняя их порядок - id23258020220329 от рф777 29.03.2022 18:21

Question

Информатика: Дано число 4865267684563. в нем удалили восемь цифр, сдвинув оставшиеся вместе и не меняя их порядок следования. какое максимальное четное число можно получить таким образом из исходного числа? в ответе укажите целое число.

рф777 · Accepted Answer

Const n=4;
var f:text;
a:array[1..n,1..n] of integer;
i,j,t:integer;
begin
writeln('1:');
assign(f,'my.txt');
reset(f);
for i:=1 to n do
begin
for j:=1 to n do
begin
read(f,a[i,j]);
write(a[i,j]:3);
end;
readln(f);
writeln;
end;
close(f);
for i:=1 to n do
for j:= i+1 to n do
begin
t:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=t;
end;
writeln('2:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.

Пример:
Файл my.txt:
23 28 19 23
34 14 8 14
44 20 14 48
38 47 20 41

Результат:
1:
23 28 19 23
34 14 8 14
44 20 14 48
38 47 20 41
2:
23 34 44 38
28 14 20 47
19 8 14 20
23 14 48 41

MOGZ ответил