Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
1)var a,b,c,d,e,k : real;
begin
writeln('Введите ,b,c,d,e,k');
read(,b,c,d,e,k);
a:= (d + c + b)*e - 5k - 1
writeln(a);
end;
2)var c,x : real;
begin
writeln('Введите x');
read(x);
c:= abs(x+4) - abs(sqr(x)-3*x+6);
writeln(c);
<span>end.</span>
1248849018880. Лррлопопопооплппо
Изначально переменная a=1, a переменная b=-10
Задается вопрос. a=1024?
Изначально нет, а значит идем дальше.
a=a*4=1*4=4
b=b+a=-10+4=-6
Возвращаемся обратно
Задается вопрос. a=1024?
Нет, а значит
a=a*4=4*4=16
b=b+a=-6+16=10
Возвращаемся обратно
Задается вопрос. a=1024?
Нет, а значит
a=a*4=4*16=64
b=b+a=74
Возвращаемся обратно
Задается вопрос. a=1024?
Нет, а значит
a=a*4=64*4=256
b=b+a=256+74=330
Возвращаемся обратно
Задается вопрос. a=1024?
Нет, а значит
a=a*4=256*4=1024
b=b+a=330+1024=1354
a=1024
b=1354
Цикл заканчивается
V - логическое сложение.
-> импликация.
& - логическое умножение.
(x+y)->(x*z)
Порядок действий: сначала считаем первую скобку, потом вторую, затем из первой скобки делаем импликацию второй скобки. Импликация равна нулю только тогда, когда и 1 следует (->) 0. Во всех остальных случаях импликация равна единице.
Исходя из данного условия имеем два варианта ответа:
1) zxy
2) zyx
Распишем первый вариант и второй.
Первый вариант отпадает на 6 строке из таблицы в задании. т.к при подсчете функция равна 0, а в таблице она равна 1.
Второй вариант подошел, т.к при подсчете функции равны со значением в таблице.
Ответ: zyx