Определение равностороннего треугольника. - Turbo Pascal
Формулировка задачи:
Определить, является ли треугольник со сторонами a, b, c равносторонним.
Решение задачи: «Определение равностороннего треугольника.»
textual
Листинг программы
Program Tr;
uses crt;
var
a,b,c:integer;
Begin
write('vvedute a-');
readln(a);
write('vvedute b-');
readln(b);
write('vvedute c-');
readln(c);
if ((a=b) and (b=c) and (a=c)) then writeln('Treygolnyk ravnostoronnuy')
else writeln('Treygolnyk ne ravnostoronnuy');
End.
Объяснение кода листинга программы
- Программа объявляет три переменные типа Integer: a, b и c.
- Ввод значений для переменных a, b и c осуществляется с помощью функции readln().
- Если все три переменные равны между собой, то выводится сообщение
Treygolnyk ravnostoronnuy. - Если равенство не выполняется, то выводится сообщение
Treygolnyk ne ravnostoronnuy.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д