Информатика, опубликовано 2018-08-22 19:37:36 by Гость
Помогите,пожалуйста, написать программу по теме "Ветвление в алгоритмах" для Pascal. Задача: определить существует ли треугольник со сторонами ABC и, если существует, то какой он (равнобедренный, равносторонний, произвольный). Заранее большое спасибо!
Ответ оставил Гость
(*Pascal ABC.Net*)
program triangle;
var a,b,c: integer;
begin
write(Введите стороны:); readln(a,b,c);
if (a=b) and (a=c) then
write(Треугольник равносторонний)
else if (a=b) or (b=c) or (a=c) then write(Треугольник равнобедренный)
else write(Треугольник произвольный);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на