Ответ:
3
Объяснение:
9 команд веред ровно 36 единиц
3 команды назад ровно -9единиц
36-9=27
поэтому команд ,,назад 3" должно быть 3
Var
y, x: real;
begin
read(x);
if (x > -20) and (x < -10) then
y := x * x * x * x
else if (x > -10) and (x < -20) then
y := abs(x)
else if ((x > 0) and (x < 20)) or ((x > 30) and (x < 70)) then
y := 45
else if ((x > 80) and (x < 100)) or ((x > 110) and (x < 140)) or (x > 180) then
y := abs(x - 4)
else
y := abs(x + 2);
writeln(x, ' ', y);
end.
Program z;{a1=6,d=}const n=7;var a:array[1..n] of real;a1,i:integer;d:real;begina1:=6;d:=(49-6)/7;for i:=1 to n do begina[i]:=a1+(i-1)*d;writeln(a[i]:3);end;
end.
Алгоритм решения следующий:
Сначала считывается введенное слово в переменную. Далее, в цикле от начала слова и до его конца проверяется, является ли текущая буква, равной искомой, то есть букве "а". Если такая буква найдена, то выводится её позиция в слове.
А теперь комментарий по каждой из строчек кода.
// Блок объявления переменных
<span>var a:string;
var i:integer;
// Начало программы
begin
// Ввод слова
writeln('Введите слово');
// Считывание слова
read(a);
</span>// Цикл от 1 до длины считанного слова<span>
for i:=1 to length(a) do begin
</span>// Условие на то, является ли текущая буква заданной<span>
if (a[i]='а') then begin
</span>// Если является, вывод её позиции на экран<span>
writeln('Найдена буква “а”, ее позиция:' , i);
</span>// и прерывание дальнейшего цикла, выход из него<span>
break;
</span>// Завершение блока "if"<span>
end;
</span>// <span>Завершение цикла
end;
</span>// Завершение программы<span>
end.</span>
AB+A!B=A(B+!B)=A
!(X+Y)(X!Y)=(!X!Y)(X!Y)= 0
!XY+!(X+Y)+X = !XY+!X!Y+X = !X(Y+!Y)+X = !X+X = 1
(X+Y)(!X+Y)(!X+!Y) = F
(X+Y)(!X+Y) = X!X+XY+Y!X+YY = 0+XY+Y(!X+1) = XY+Y= Y(X+1) = Y
Y(!X+!Y)=Y!X+Y!Y=Y!X
(X+Y)(!X+Y)(!X+!Y) = Y!X
5 пример особо не упростишь
!(XY+!Z)=!(XY)Z=(!X+!Y)Z