<span>uses</span> crt;
<span>var</span> a<span>,</span>mn<span>,</span>n<span>,</span>imn<span>:</span><span>integer</span>;
<span>begin</span>
clrscr;
<span>writeln</span><span>(</span><span>'Введите натуральные числа, окончание ввода 0:'</span><span>)</span>;
<span>repeat</span><span>readln</span><span>(</span>mn<span>)</span>;
<span>until</span> mn><span>0</span>;
n<span>:=</span><span>1</span>;
imn<span>:=</span><span>1</span>;
<span>repeat</span>
<span>repeat</span>
<span>readln</span><span>(</span>a<span>)</span>;
<span>until</span> a><span>=</span><span>0</span>;
n<span>:=</span>n<span>+</span><span>1</span>;
<span>if</span><span>(</span>a<><span>0</span><span>)</span><span>and</span><span>(</span>a<mn<span>)</span><span>then</span>
<span>begin</span>
mn<span>:=</span>a;
imn<span>:=</span>n;
<span>end</span>;
<span>until</span> a<span>=</span><span>0</span>;
<span>write</span><span>(</span><span>'Минимальное из чисел, не считая 0='</span><span>,</span> mn<span>,</span><span>' его номер='</span><span>,</span>imn<span>)</span>;
<span>readln</span><span>end</span>.
Вместо переменных A и B нужно подставить нули и единицы, всего в данном случае возможно 4 различных комбинации (A=0 и B=0; A=0 и B=1; A=1 и B=0; A=1 и B=1).
Для простоты понимания знак «ᴠ» можно представить как знак сложения «+», знак «&» как знак умножения «*», а черточка над знаком обозначает отрицание, т.е. противоположное значение ( отрицание нуля равно единице, отрицание единицы равно нулю).
Таким образом можно преобразовать выражение. Например, под буквой Б вместо A&(AvB) записать A*(A+B) и начать подставлять нули и единицы и заполнять таблицу:
A B AvB ( или A+B) A&(AvB) ( или A*(A+B) )
0 0 0 0
0 1 1 0
1 0 1 1
1 1 1 1
Под остальными буквами порядок действий проставлен правильно и действовать нужно по аналогии.
Uses crt;
var x:integer;
y:real;
begin
read (x);
y:=1/sqr (x)-13*x/(sqr (x)-36)-18;
write (y);
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger('Количество элементов в массиве:');
var a := ArrGen(n, i -> i.IsEven ? 2 * i + 3 : 1);
a.Println
end.
<h3>Количество элементов в массиве: 13</h3><h3>3 1 7 1 11 1 15 1 19 1 23 1 27</h3>
<em><u>Pascal:</u></em>var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
for i:=1 to 10 do
if a[i] mod 2 = 1 then write (a[i],' ');
end.
<em><u>C++:</u></em>#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = '";
cin >>a[i];
}
for (int i = 0; i<10; i++)
if (a[i]%2==1)
cout <<a[i] <<" ";
return 0;
}
