2й курс политех, ABC Pascal,
Составить алгоритм и написать программу, проверки равенства треугольников по второму признаку ((/-угол)/A=/A1, /B=/B1, /AB=/A1B1)
Вводятся все три угла и все три стороны обоих треугольников
Помогите!Практ 2й курс!Pascal Пажалуйста HELP
Время индусского кода
Код: Выделить всё
writeln('Введите углы: А, А1, В, В1, С, С1');
readln (A, A1, B, B1);
writeln ('Введите стороны: АВ, А1В1, АС, А1С1, ВС, В1С1');
readln (AB, A1B1);
if (A=A1) and (B=B1) and (AB=A1B1)
writeln('Треугольники равны') else writeln('Треугольники не равны');
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.