Перепишем в более удобный для преобразования эквивалентный вид и сделаем некоторое преобразование с тем, чтобы получить как можно больше отрицаний (из-за использования логики с инверсией - это минимизирует число элементов схемы).
Задача №1.
Код на языке PascalABC:
program Z1;
uses crt;
var
x,y:real;
begin
writeln('Введите X ');
readln(x);
If x>0 then y:=sqrt(x)
else
y:=sqr(x);
writeln('X= ',x,'Y= ',y);
end.
Задача №2.
program Z2;
uses crt;
var
a,b,a1,b1,r:real;
begin
writeln('Введите 1 число ');
readln(a);
writeln('Введите 2 число ');
readln(b);
a1:=sin(a)/cos(a);
b1:=sin(b)/cos(b);
r:=a1+b1;
writeln('1 число: ',a,' 2 число: ',b,' 3 переменная: ',a1);
writeln(' 4 переменная: ',b1,' Сумма 2 последних переменных: ',r);
end.
Окай, буду исходить из найденной задачи
АБВГД
2|5|1|3|4
Подозреваю, что вариант №2
Ответ:
Решение в прикреплённых. Файл эксель там же.
Объяснение: