<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
Я считаю что свойства объекта является производство кислорода (чистка воздуха)
3 паруса -(*мангалория*)
67 матроск -( симфолия)
1.
8 Кбайт= 8*8*1024=65536
22 байта= 22*8=176
2.
15 Кбайт= 15*1024=15360
156 Мбайт= 156*1024*1024=163577856
3.
7168 байт= 7168:1024= 7
2 Мбайта= 2*1024=2048
5 Гбайт= 5*1024*1024=5242880
4. какова кодировка всего алфавита?
5. не знаю
6.
1) 101010
2) 110000
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№52</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= 3 then F := x * x - 3 * x + 9
else F := 1 / (x * x * x + 6);
Print(F)
end.
<h2>№54</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= -3 then F := 9
else F := 1 / (x * x + 1);
Print(F)
end.