// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x, a) := ReadReal2('Введите через пробел х и а:');
Print(Tan(x) + Sin(9 * x) - Abs(a + x))
end.
1. Используя инструмент "Линия" начертим прямую линию.
2. Скопируем эту линию, повернем на 90 градусов влево.
3. При помощи инструмента "Линия" достроим треугольник.
4. Скопируем треугольник и расположим, как на скрине ниже.
5. Скопированный треугольник отразим на 180 градусов и расположим, как на скрине.
Итог и построение по шагам смотри во вложении.
Var
i: integer;
ar: array[1..3]of integer;
procedure PS(a: integer);
var
P: Integer;
S: Real;
begin
P := 3 * a;
S := sqrt(3) / 4 * sqr(a);
writeln(P, ' ', S:0:6);
end;
begin
readln(ar[1], ar[2], ar[3]);
for i := 1 to 3 do PS(ar[i]);
end.
Алкогольная, интернет, наркотическая зависимость, игровая.
Последние две цифры должны быть 1 и 2 (1*7+2 - чтобы получить остаток 9) Значит запись семеричного числа начинается с цифры 3 (должны получить наименьшее возможное число) и дальше цифры по возрастанию:
3045612