program zadacha;
<span>var</span>
<span>s,temp,max,min:string;</span>
<span>i,mxp,mnp:integer;</span>
<span>begin</span>
<span>writeln('Введите строку...');</span>
<span>readln(s);</span>
<span>s:=s+' ';</span>
<span>temp:='';</span>
<span>max:='';</span>
<span>min:=s;</span>
<span>for i:=1 to length(s) do</span>
<span>begin</span>
<span>if s[i]<>' ' then</span>
<span>temp:=temp+s[i];</span>
<span>if (s[i]=' ') and (temp<>'') then</span>
<span>begin</span>
<span>if Length(temp)<Length(min) then</span>
<span>begin</span>
<span>min:=temp;</span>
<span>mnp:=i-Length(temp)</span>
<span>end;</span>
<span>if Length(temp)>Length(max) then</span>
<span>begin</span>
<span>max:=temp;</span>
<span>mxp:=i-Length(temp)</span>
<span>end;</span>
<span>temp:='';</span>
<span>end;</span>
<span>end;</span>
<span>if max<>'' then</span>
<span>begin</span>
<span>Writeln('Самое длинное: ',max,' Оно начинается с: ',mxp);</span>
<span>Writeln('Самое короткое: ',min,' Оно начинается с: ',mnp)</span>
<span>end</span>
<span>else</span>
<span>WriteLn('В данной строке нет слов!')</span>
<span>end.</span>
Var a,a1,a2,a3,a4,a5,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 10000;
a2:=a div 1000 mod 10;
a3:=a div 100 mod 10;
a4:=a mod 100 div 10;
a5:=a mod 10;
b:=a5*10000+a4*1000+a3*100+a2*10+a1;
writeln('b = ',b);
end.
Пример:
a = 13524
b = 42531
<em>// PascalABC.NET 3.2, сборка 1415 от 25.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function MatRead(var n:integer):array[,] of integer;
// функция создает и возвращает квадратную матрицу n*n,
// элементы которой вводятся к склавиатуры.
// Она фактически не нужна в этой версии Паскаля,
// потому что уже встроена, но раз просят...
begin
Result:=ReadMatrInteger(n,n)
end;
function MatSum(a,b:array[,] of integer):array[,] of integer;
begin
var n:=a.RowCount-1;
SetLength(Result,n+1,n+1);
for var i:=0 to n do
for var j:=0 to n do
Result[i,j]:=a[i,j]+b[i,j]
end;
procedure MatPrint(a:array[,] of integer; p:integer);
// вывод матрицы a в p позициях
// И эта процедура фактически не нужна, но присутствует
// из-за требований задачи.
begin
a.Println(p)
end;
begin
var n:=ReadInteger('n=');
Writeln('Введите элементы матрицы А');
var a:=MatRead(n);
Writeln('Введите элементы матрицы B');
var b:=MatRead(n);
MatPrint(MatSum(Transpose(a),b),4);
Writeln;
MatPrint(MatSum(Transpose(b),a),4)
end.
<u>Пример</u>
n= 3
Введите элементы матрицы А
1 2 3 4 5 6 7 8 9
Введите элементы матрицы B
18 17 16 15 14 13 12 11 10
19 21 23
17 19 21
15 17 19
19 17 15
21 19 17
23 21 19
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
<u>Пример</u>
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
<span>В 6 заливаем литр. Потом отливаем из 6 два литра в двухлитровую. В 6 литровой остается 4 литра. Затем из 2 литровой переливаем в 5 литровую.</span>