В самолете нет стоп-крана
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
var y:real;
if x<=0 then y:=2*Sin(Abs(x))
else
if x<=5 then y:=Sqrt(x)
else
if x<=10 then y:=2*x*x-Sqrt(x)
else y:=Cos(2*x)/a;
Writeln('Y=',y)
end.
<u>Вариант 2</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
Writeln('Y=',
x<=0 ? 2*Sin(Abs(x)) :
x<=5 ? Sqrt(x) :
x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a)
end.
<u>Примеры</u>
Введите х и a через пробел: 12.4 -3
Y=-0.315050171382724
Введите х и a через пробел: 5.8 1.156
Y=64.8716810842415
1) Вычислить
11100101011(2)+1101111101(2)=101010101000(2)
1000001(2)-11111(2)=100010(2)
1437(8)+7465(8)=11124(8)
70000(8)-6453(8)=61325(8)
ABCDF(16)+98765(16)=144444(16)
F000001C(16)-AABBFF(16)=EF55441D(16)
2) Перевести число111111101001010010100011100 из 2-ичной системы счисления в 8-ичную и 16-ичную системы счисления
111 111 101 001 010 010 100 011 100(2) = 775122434(8)
111 1111 0100 1010 0101 0001 1100(2) = 7F4A51C(16)<span>
</span>