<h3>PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Conv(s: string): string;
begin
var d := s.ToCharArray;
var (i, found) := (d.High, False);
while i >= 1 do
if d[i] > d[i - 1] then
begin
found := True;
break
end
else i -= 1;
if found then
begin
s := s[:i];
var c := d[i - 1];
d := d[i - 1:];
d.Sort;
var j := d.IndexOf(c) + 1;
s += (d[j] + d?[:j] + d?[j + 1:]).JoinIntoString
end
else s := '-';
Result := s
end;
begin
var ms := Arr('1890', '83849', '126631', '146531', '32749972');
foreach var s in ms do
Conv(s).Println
end.
<h2>1908</h2><h2>83894</h2><h2>131266</h2><h2>151346</h2><h2>32772499</h2>
В заданном выражении скобка (¬x ∧ y ∧ z) будет равна 1 при следующих значениях переменных: x=0, y=1, z=1;
скобка (¬x ∧ ¬z) будет равна 1 при x=0, z=0.
Комбинацию значений 0, 1, 1 видим в последней строке таблицы, значит Перем.3 - это x; из второй строки определяем, что Перем. 2 - это z, следовательно, Перем.1 - это y.
Ответ: yzx
begin
//1 вариант
for var i := 0 to 100 do
if i.isEven then Print(i);
Println;
//2 вариант
foreach var x in Range(0, 100, 2) do
Print(x)
end.
var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.
#include <iostream>
using namespace std;
const int N = 6;
int min, max,srednee;
int main()
{
int arr[N];
min = 15001;
max = -1;
for (int i = 0; i < N; i++)
{
cin >> arr[i];
}
for (int i = 0; i < N; i++)
{
if (arr[i] % 2 == 0)
{
if (arr[i] < min)
{
min = arr[i];
}
if (arr[i] > max)
{
max = arr[i];
}
}
}
srednee = (min + max) / 2;
for (int i = 0; i < N; i++)
{
arr[i] = arr[i] - srednee;
cout << arr[i] << endl;
}
return 0;
}