Var a:array [1..100, 1..100] of integer;
<span>i,j,max:longint; </span>
<span>begin </span>
<span>for i:=1 to 4 do </span>
<span>for j:=1 to 4 do read(a[i,j]); </span>
<span>max:=a[2,1]; </span>
<span>for i:=1 to 6 do </span>
<span>for j:=1 to 6 do </span>
<span>if (a[i,j]>max) and (i>j) then max:=a[i,j]; </span>
<span>for i:=1 to 6 do begin </span>
<span>for j:=1 to 6 do write(a[i,j],' '); </span>
<span>writeln; </span>
<span>end; </span>
<span>writeln('Максимальный элемент под главной диагональю - ',max); </span>
<span>end.</span>
Var
i,j,k:longint;
begin
for i:=1 to 1000 do
for j:=1 to 1000 do
for k:=1 to 10000 do
if sqr(i)+sqr(j)=sqr(K)then
begin
writeln(i,' ',j,' ',k); {вывожу все тройки, можно убрать}
if i+j+k=1000 then
begin
writeln('! ',i,' ',j,' ',k); {нужная тройка}
exit; {прерывание программы}
end;
end;<span>
end.
</span><span>
</span>
Ответ:
1x10^4+3x10^3+6x10^2+6x10^1+1x10^0
Объяснение:
Огого почерк шикарний перепиши допоможу