Ответ:
F10 нажимай если уже все.
Объяснение:
Var
x,y,z:real;
begin
writeln('Введите три числа');
read(x,y,z);
If (x>z) and (x>y) then
writeln('Наибольшее= ',x);
If (y>z) and (y>x) then
writeln('Наибольшее= ',y);
If (z>x) and (z>y) then
writeln('Наибольшее= ',z);
If (z=y) and (y=x) then writeln('Все числа одинаковые') else
begin
If (z=x) then writeln('числа x и z равны');
If (y=x) then writeln('числа x и y равны');
If (z=y) then writeln('числа y и z равны');
end.
end.
var a, b, c, d, x1, x2, t: real;
begin
writeln('Программа для решения неравенства ax^2 + bx + c > 0');
write('Введите коэффициенты a, b, c: ');
readln(a, b, c);
if a = 0 then begin
if b = 0 then
begin
if c > 0 then writeln('(-∞; +∞)')
else writeln('ø')<span>
end</span>
else if b > 0 then writeln('(', -c / b : 0 : 3, '; +∞)')
else writeln('(-∞; ', -c / b, ')')
end
else
begin
d := b * b - 4 * a * c;
if d = 0 then
begin
x1 := -b / (2 * a);
if a > 0 then writeln('(-∞; ', x1, ') U (', x1, '; +∞)')
else writeln('ø')
end
else if d > 0 then
begin
x1 := (-b - sqrt(d)) / (2 * a);
x2 := (-b + sqrt(d)) / (2 * a);
if x1 > x2 then
begin
t := x1;
x1 := x2;
x2 := t
end;
if a > 0 then writeln('(-∞; ', x1, ') U (', x2, '; +∞)')
else writeln('(', x1, '; ', x2, ')')
end
else
begin
if a > 0 then writeln('(-∞; +∞)')
else writeln('ø')
end
end
end.
(A+B*C)=1
Or - оператор эквивалентный сложению
And - умножению
#include <iostream>
int main(){<span>
unsigned int m = 0;
</span><span> std::cin >> m;
</span><span>
int * c = new int[m];
</span><span> int * t = new int[m];
</span><span> for (unsigned int i = 0,n = 0; i < m; ++i) {
</span><span> std::cin >> c[i];
</span><span> (c[i] > 0) ? t[n++] = c[i]: t[m-(i-n)-1] = c[i];
</span><span> }</span>
<span>
for (unsigned int i = 0; i < m; ++i)</span><span> std::cout << c[i] << ',';</span><span /><span>
std::cout << std::endl;</span><span>
for (unsigned int i = 0; i < m; ++i) </span><span>std::cout << t[i] << ',';</span><span />
<span> delete c;
</span><span> delete t;
</span><span> return 0;
</span><span>}</span>