Предмет: Информатика,
автор: Dremor23
Составить программу на Pascal ABC.
Задача:
Даны 3 стороны Треугольника a,b,c . Является ли треугольник равностороним? Является ли треугольник равнобедреным.
Программу написать можно ли одну большую либо 2 маленькие(маленькие отвечающий на каждый вопрос задачи)
Ответы
Автор ответа:
0
var a, b, c : integer;
begin
readln(a, b, c);
if (a = b) and (a=c) then writeln('Треугольник равносторонний');
if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный')
end.
begin
readln(a, b, c);
if (a = b) and (a=c) then writeln('Треугольник равносторонний');
if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный')
end.
Похожие вопросы
Предмет: Английский язык,
автор: nastyalizogubova
Предмет: Английский язык,
автор: kamkar453
Предмет: История,
автор: daramelnychenko
Предмет: Физика,
автор: romanenko539