Лицо!!!!!!!!!!!!!!!!!!!!!!!!
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var (a,b,c):=ReadReal3('Введите a,b,c =');
var s:= sqrt(3*c*c*c + b * b * b * b * b)/(b-c);
var k:= sqrt(s) + abs(-a*b*c);
var y:= s + 3*k - (s*s*s*s/(b + c));
Writeln('y = ', y);
end.
Const
m=6;
n=8;
var
a:array[1..m,1..n] of integer;
i,j,r:integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i,j]:=Random(100);
Write(a[i,j]:3)
end;
Writeln
end;
for j:=1 to n do
begin r:=a[1,j]; a[1,j]:=a[m,j]; a[m,j]:=r end;
Writeln('Результирующий массив');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i,j]:3);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходный массив
6 93 10 3 80 4 47 71
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
42 26 67 23 28 8 8 45
Результирующий массив
42 26 67 23 28 8 8 45
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
6 93 10 3 80 4 47 71
var
str: <em>string</em>;
arr: <em>array of string</em>;
begin
readln(str);
arr := str.Split(' ');
writeln(String.Join('', arr));
<span>end.</span>