Здравствуйте, вы являетесь участником олимпиады НТИ. По правилам олимпиады нельзя использовать готовые решения для прохождения на последующие этапы. Т.к. вы нарушили правила, ваш аккаунт блокируется, и вы отстраняетесь от участия в НТИ. Желаем участия в следующем году.
С уважением,
Модераторы НТИ
War a, b, x:real
begin
write(a,b)
if (a>b) then x:=a*b
else x:=a-b
println(x)
end
Program abc;
const<span> arr: array [1..4] of array [1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
</span>var<span> i, j: integer;
</span>begin
<span>
for i := 1 to 4 do
</span><span> begin</span><span>
for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;
</span><span> writeln();
</span><span> end;</span>
<span> writeln();
</span><span>
for i := 1 to 4 do
</span><span>begin
</span><span> j := arr[2][i];
</span><span> arr[2][i] := arr[3][i];
</span><span> arr[3][i] := j;
</span><span> end;
</span><span> for i := 1 to 4 do
</span><span>begin
</span><span> for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;</span><span>
writeln();
</span><span> end;
</span><span>end.</span>
Сообщение составит 32 * 2500 = 80000 бит = 10000 байт