Предмет: Информатика,
автор: Anik110
Заданы стороны треугольника a b c . Определить , является ли он равносторонним. Написать программу на языке паскаль
Ответы
Автор ответа:
0
var a,b,c:integer;
begin
writeln('Введите стороны треугольника: ');
readln(a,b,c);
if (a = b) and (b = c) then
writeln('Равносторонний');
else
writeln('Неравносторонний');
readln
end.
begin
writeln('Введите стороны треугольника: ');
readln(a,b,c);
if (a = b) and (b = c) then
writeln('Равносторонний');
else
writeln('Неравносторонний');
readln
end.
Похожие вопросы
Предмет: Английский язык,
автор: egorlox630783946
Предмет: Алгебра,
автор: abdievaarina05
Предмет: Геометрия,
автор: PopItsimpldimpl
Предмет: Химия,
автор: masha1234432144