<span>информация представленная в форме пригодной для обработки компьютером 6 букв
это будет данные.
</span>
a = -3
b = -4 * (-3) - 6 = 12 - 6 = 6
x = 16
y = 3+8 = 11
если (-22 < 11) и (5 - 12 > - 5) - неверно, пропускаем
если (-6 + 11 > -1) или (15+6 < 16) истинно первое выражение
то x = 4, y = 1
Вывод x(4).
Ответ 4
Program prog;
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
x:=2*sqr(a);
y:=3*b;
writeln;
writeln ('X = ', x:0:3, ' Y = ', y:0:3);
if (x>y) then writeln('Min = ', y);
if (x<y) then writeln('Min = ', x);
if (x=y) then writeln('X = Y');
end.
Если я правильно понял ,что нужно.
var
a,b:integer;
begin
readln(a,b);
if (a>b) then writeln(a,' > ',b)
else
if (a<b) then writeln(a,' < ',b)
else
writeln(a,' = ',b);
end.
Var r1,r2,ds:real;
begin
write('R1 = '); readln(r1);
write('R2 = '); readln(r2);
ds:=pi*abs(r1*r1-r2*r2);
writeln('ds = ',ds);
end.
Пример:
R1 = 6
R2 = 4
ds = 62.8318530717959