11010000 10100111 11010000 10010101 11010000 10100000 11010000 10011101
11010000 10010101 11010000 10100110 11010000 10011010 11010000 10010000
11010000 10101111
Program programm;
var A,B: integer;
begin
writeln('Введите число A: ');
readln(A);
writeln('Введите число B: ');
readln(B);
if (A > 1) and (B < -3) then
writeln('Неравенство ВЫПОЛНЕНО!')
else
writeln('Неравенствено НЕ выполненно!');
end.
Обязательный атрибут почтового адреса,по-английски называющийся "at":@?
8) Область определения функции:
2x + 1 >= 0
2x >= -1
x >= -0.5
20x - 5 <> 0
20x <> 5
x <> 5/20
x <> 1/4
x ∈ [-0.5; 0.25) U (0.25; ∞)
На Паскале вычисление значения этой функции с учетом области определения может выглядеть так:
if (x > -0.5) and (x <> 0.25) then begin
writeln(sqrt(2*x + 1) / (20 * x - 5));
end;
9)
begin
var price: real;
readln(price);
if price > 3000 then begin
price := price - price * 0.05;
end
else if price > 1000 then begin
price := price - price * 0.03;
end;
writeln(price);
end.
10)
begin
var x, f: real;
readln(x);
f := 0;
if x > 5 then begin
f := x*x - 1;
end
else if x < -2 then begin
f := 2*x;
end;
writeln(f);
end.