Добрый вечер! вот уже сколько времени "бьюсь" с этим , не могу сделать, ! 1. измените программу так, чтобы треугольники рисовались ниже текста (правее 2. добавьте в программу возможность ввода длины второго катета. 3. измените программу так, чтобы длины катетов задавались случайно.

Procedure dec2oct(n: longint); { перевод натурального десятичного n в восьмеричную систему счисления   и вывод результата } const   alpha = '01234567'; var   s: string;   i: integer; begin   s : = '';   while n > 0 do begin       s : = alpha[(n mod 8) + 1] + s;       n : = n div 8   end;   for i: =length(s) to 9 do s: ='0'+s;   write(s) end; { использование } var   x: longint; begin   write('введите десятичное число: '); read(x);   write('в восьмеричной системе счисления: ');   dec2oct(x);   writeln end. тестовое решение: введите десятичное число: 1234567 в восьмеричной системе счисления: 0004553207

1) f = (x∧y)∧(x≡y) x∧y =1 когда х=1 и   y=1 x≡y =1 когда ( x=0 и y   =0)   или     (x=1 и  y=1) подставляем в эту функцию   f значения   x y z из таблицы  и смотрим, получилось ли указанное в таблице значение f: 1)  для первой строки в таблице: (1∧0)∧(1≡0) =0 ?   - верно! для  второй строки (0∧1)∧(0≡0) =0 ?   - верно для третьей строки (0∧0)∧(0≡1)=0 ?   верно ответ   1) (если бы в 1) было противоречие, надо было бы проверять 2) и  тд)