Результат логической операции ИЛИ-НЕ для А и Б равен единице,когда А и Б равны нулю (Г)
1)
var a:integer;
begin
writeln('введите число');
readln(a);
writeln('1',a,'1');
<span>end.
2)
var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for c:=10 to 99 do
begin
if (c mod a = 0) or (a = c mod 10) or (a = c div 10) then
writeln(c);
end;
<span>end.
</span>3)
var b,c:integer;
a:array [1..100] of integer;
beginwriteln('введите длину массива');
readln(b);
for c:=1 to b do
begin
writeln('введите элемент массива');
readln(a[c]);
a[c]:=a[c]+1;
writeln(a[c]);
end;
<span>end.</span></span>
В переменной с вычисляется количество пар элементов, в которых A[i-1] < A[i] (т.е. в паре соседних элементов предыдущий элемент меньше следующего). Это следующие пары: 1,6 ; 6,7 ; 7,8 ; 6,9. Таких пар всего 4, значит значение переменной с будет = 4.
Программа - в прилагаемом файле.
Оптимизации никакой нет, поэтому считает долго.
Результат:
29786+850+850 = 31486