.Написать программу определения истинности высказывания о равностороннем треугольнике Использовать можно только служебные слова write, var, begin, ord, and, written, writel, if, integer, real, char
.Написать программу определения истинности высказывания о равностороннем треугольнике Использовать можно только служебные слова write, var, begin, ord, and, written, writel, if, integer, real, char
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
var
a, b, c: integer;
begin
if (a = b) and (b = c) thenwrite('Введите значение стороны a: ');
readln(a);
write('Введите значение стороны b: ');
readln(b);
write('Введите значение стороны c: ');
readln(c);
writeln('Треугольник равносторонний')
else
writeln('Треугольник не является равносторонним');
end.