Код Щ = 1xyz0
больше всего походит на Ш 11000, и чтоб было 3 позиции различия, то будет 1xyz0 = 10110
проверим колво различий с остальными
Ц: 01111 vs <span>10110 = 3 различия </span>
Ч: 00001 vs 10110 = 4 различия
Ответ 10110
const g = 5; v = 3;
var a: array[1..g,1..v] of integer;
i,j,maxj,minj,p:integer;
begin
writeln('Массив: ');
for i:=1 to g do
begin
for j:=1 to v do
begin
a[i,j]:=Random(101);
write(a[i,j]:4)
end;
writeln
end;
for i:=1 to g do
begin
maxj:=1;
minj:=1;
for j:=1 to v do
begin
if a[i,j]>a[i,maxj] then maxj:=j;
if a[i,j]<a[i,minj]then minj:=j;
end;
p:=a[i,maxj];
a[i,maxj]:=a[i,minj];
a[i,minj]:=p;
end;
writeln;
writeln('Преобразованный массив: ');
for i:=1 to g do
begin
for j:=1 to v do write(a[i,j]:4);
writeln
end;
end.
Зависит от того, в чем проблема. Проверенный метод - перезагрузить, если не получается отключить питание. Если при последующих включениях также будет зависать, значит проблема кроется внутри компьютера. Возможная причина, нехватка оперативной памяти, либо, если компьютер давно не чистился от пыли, то его стоит почистить и возможно, это поможет. Еще одна возможная причина - если компьютер достаточно старый, то виной может быть износ процессора или других его компонентов. В данном случае зависит от ошибки, которую компьютер выдает при включение. Если её нет, значит проблема из списка выше
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>1. Современное решение</u>
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
<u>Пример</u>
15.8 4.9 13
249.64 24.01 169
<u>2. А так, увы, все еще учат писать во многих школах...</u>
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.