var
x: string;
arr: array of char;
begin
readln(x);
arr := x.Split(' ')[1].ToCharArray();
System.Array.Reverse(arr);
writeln(length(arr), ' ', new string(arr));
end.
---------------------------------------
var
c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
r, q, s: real;
i, a, b: byte;
begin
q := 1;
i := 1;
r := c.Min();
while (i < length(c)) do
begin
q *= c[i];
i += 2;
end;
readln(a, b);
s := b - a - 1;
writeln('T = ', (R / Q + 1) + S);
end.
-----------------------------
const
k = 5;
p = 5;
var
f: array [1..k, 1..p] of string;
o: real;
df: byte;
begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 99).ToString();
write(f[i, j]:3);
if (j >= 7 - i) then
begin
o += integer.Parse(f[i, j]);
df += 1;
f[i, j] := '██';
end;
end;
writeln();
end;
writeln();
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
writeln(o / df);
end.
//PascalABC.Net 3.2
var m, n: integer;
a: array of array of integer;
procedure zam(a1, b1: integer);
begin
for var i:=0 to n-1 do
begin
a[i][a1]+=a[i][b1];
a[i][b1] :=a[i][a1]-a[i][b1];
a[i][a1]-=a[i][b1];
end;
end;
procedure sortSelekt ();
var max: integer;
begin
for var i:=0 to m-1 do
begin
max:=i;
for var j:=i to m-1 do
if a[n-1][max]<a[n-1][j] then max:=j;
if i<>max then zam (i, max);
end;
end;
procedure printMAS ();
begin
for var i:=0 to n-1 do
begin
for var j:=0 to m-1 do write (a[i][j]:4);
writeln;
end;
end;
begin
n:=readinteger('n =');
m:=readinteger('m =');
setLength (a, n);
for var i:=0 to n-1 do
a[i]:=arrRandom (m, -99, 99);
writeln ('Первоначальная случайная матрица: ');
printMAS();
sortSelekt ();
writeln ('Измененная матрица: ');
printMAS();
end.
Программа на Кумире прилагается.
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
</span>
begin
var (a,b):=ReadInteger2('Введите a,b,c,d->');
var (c,d):=ReadInteger2;
Write('Корни: ');
for var x:=0 to 1000 do
if a*x**3+b*x**2+c*x+d=0 then Write(x,' ');
end.
Пример:
Введите a,b,c,d-> 1 -3 -13 15
Корни: 1 5