Снапишите программу, которая переводит переданное ей неотрицательное целое число в 10-значный двоичный код, сохранив лидирующие нули. используйте процедуру. входные данныевходная строка содержит неотрицательное целое число n ( 0 ≤ n <  8 10 ).выходные данныепрограмма должна вывести 10-значный двоичный код переданного её числа, сохранив лидирующие нули.

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.

т.к 3 вида флагов, значит возводим число 3 в степень равную кол-ву флагов

 

ответ: 81 сигнал