var
n, i, j, AskTheMountains: longint;
a: array of longint;
fl: Text;
begin
assign(fl, 'input.txt');
reset(fl);
readln(fl, n);
SetLength(a, n);
for i := 0 to (n - 1) do
readln(fl, a[i]);
close(fl);
assign(fl, 'output.txt');
rewrite(fl);
for i := 0 to n - 1 do
for j := i to n - 1 do
if (a[i] > a[j]) then
begin
AskTheMountains := a[i];
a[i] := a[j];
a[j] := AskTheMountains;
end;
for i := 0 to n-1 do
writeln(fl, a[i]);
close(fl);
<span>end.</span>
4. <span>Петя, не насвистывая, едет в автобусе и читает книгу
5. </span><span>Петя едет в автобусе или, не насвистывая, читает книгу
6. </span><span>(А & B)→A
</span>7. <span>A ˅ B
8.
9. </span><span>¬C
</span>
Могут использоваться «and» или «or».
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadlnInteger('N=');
var a:=ReadArrInteger(n);
var k:=ReadInteger('K=')-1;
a:=(a[:k].Reverse+a[k:k+1]+a[k+1:].Reverse).ToArray;
a.Println
end.
<u>Пример</u>
N= 8
13 62 0 -35 18 15 232 43
K= 4
0 62 13 -35 43 232 15 18
Программа работает для строк, состоящих только из английских букв и пробелов.
#include <iostream>
#include <string>
using namespace std;
int main()
{
string s;
cout << "s = ";
getline (cin, s);
if (s[0]!=' ') s[0]=s[0]-32;
for(int i=0; i<s.length()-1 ;i++)
if ((s[i]==' ') && (s[i+1]!=' ')) s[i+1]=s[i+1]-32;
cout << s << endl;
return 0;
}
