Построение графиков заданных функций
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число: ЦЕЛ;
УКАЗ
число := Приём.Число();
ЕСЛИ число = 0 ТО Вывод.Цепь("^Ноль.") ИНАЧЕ
ЕСЛИ число < 0 ТО Вывод.Цепь("^Отрицательное ")
ИНАЧЕ Вывод.Цепь("^Положительное ") КОН;
ЕСЛИ ЧЕТ(число) ТО Вывод.Цепь("чётное число.")
ИНАЧЕ Вывод.Цепь("нечётное число.") КОН
КОН
КОН Задание.
Вытащи батарею и снова вставь,потом поставь на зарядку,минут 10 пусть подзарядится и снова включи
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,a,b):=ReadReal3('Введите x,a,b:');
var y:=Sqr(Cos(x**3))-x/Sqrt(a*a+b*b);
var w:=Sqrt(x*x+b)-b*b*Sin(x+a)**3/x;
Writeln('y=',y,', w=',w)
end.
Дизъюнктор
<span> (соединенные параллельно замыкающие контакты нескольких реле).</span>