Предмет: Информатика, автор: Anik110

Заданы стороны треугольника a b c . Определить , является ли он равносторонним. Написать программу на языке паскаль

Ответы

Автор ответа: AntonShur
0
var a,b,c:integer;  
begin
writeln('Введите стороны треугольника: ');
readln(a,b,c);
if (a = b) and (b = c) then
writeln('Равносторонний');
else
writeln('Неравносторонний');
readln
end.
Похожие вопросы
Предмет: Алгебра, автор: abdievaarina05