ОБЬЕСНЯЮ, НАРИСУЙ ОКНО, В ОКНЕ ДЕРЕВО С БУЛИНКАМИ И ЦЫФРАМИ, КАК ЭТО ЗДЕЛАЕШ РАЗКРАСИТЬ МОЖНО В ЯРКИЕ ЦВЕТА.....
Возьми напиши компьютер по середине потом
клавиатура
о.
монитор
п
ь
ю
т
е
р
дальше возит открой книгу по информ и найди слова
1.-1;
2.-4;
3.-5;
4.-6;
5.-2;
6.-3;
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b, xнач, шаг, xкон) := (-5.0, 12.0, -2.0, 0.2, 2.0);
var z: real;
for var i := 0 to Trunc((xкон - xнач) / шаг) do
begin
var x := xнач + i * шаг;
if x <= -Pi / 2 then z := 2 * Sin(x)
else
if x < Pi / 2 then z := a * Sin(x) + B
else z := Cos(x);
Writeln(x:20:15, z:20:15)
end
end.