Скорее всего неправильно введены расшифровки букв, взяла из браузера
получилось ГММГЮКА
<span>( ax + b ) : ( cx + d ) = 0
Сводим уравнение к системе:
{ ax + b = 0
{ cx + d </span>≠<span> 0
{ ax = -b
{ cx </span>≠<span> -d
</span>
Можно учесть все случаи, используя больше 16 условий, но я предпочту более оптимальный вариант, так как знаю как зависит количество корней линейного уравнения от коэффициентов.
Программа на паскале:
var a, b, c, d: real;
begin
read(a, b, c, d);
if (c = 0) and (d = 0) then writeln('NO')
else if (a = 0) and (b = 0) then writeln('INF')
else if a = 0 then writeln('NO')
else if c = 0 then writeln(-b/a)
else if b/a = d/c then writeln('NO')
else writeln(-b/a)
end.
Конец абзаца.......................................
1). var
a:integer;
b,c,x:real;
begin
a:=7;
b:=3.2;
c:=a+b;
writeln('summa=',c);
c:=c/2;
x:=a-c;
writeln('x=',x,'kvadrat=',x*x);
end.
2). Первое-выведется сумма цифр равная "C"
второе-выведется значение "х"=а минус полу сумма(1,9 это будет) а потом квадрат этого числа, т.е. 1,9*1,9=3,61.... вроде все)))
Const
handsfree = false;
var
a: array[1..100] of real;
i, n: integer;
sum, product, harmonic: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if abs(a[i]) <= 5 then
sum := sum + a[i];
writeln('sum = ', sum);
end.