Составить программу на Pascal ABC.

Задача:

Даны 3 стороны Треугольника a, b, c. Является ли треугольник равностороним? Является ли треугольник равнобедреным.

Программу написать можно ли одну большую либо 2 маленькие (маленькие отвечающий на каждый вопрос задачи)

Question

Информатика

Лидя

25 июня, 18:38

Составить программу на Pascal ABC.

Задача:

Даны 3 стороны Треугольника a, b, c. Является ли треугольник равностороним? Является ли треугольник равнобедреным.

Программу написать можно ли одну большую либо 2 маленькие (маленькие отвечающий на каждый вопрос задачи)

+1

Ответы (1)

Знаете ответ?

Авенир · Answer 1

Var a, b, c : integer;

begin

readln (a, b, c) ;

if (a = b) and (a=c) then writeln ('Треугольник равносторонний') ;

if ((a=b) and (ac)) or (b = c) and (ba) then writeln ('Треуголник равнобедренный')

end.