Напишите пжалуйста программу в турбо паскале))..Вводятся 3 целых числа A, B и C, представляющие собой длины сторон треугольника. Вывести сообщение о том, является ли треугольник прямоугольным.
Ответы
Ответ дал:
1
uses crt;
var
a,b,c:integer;
begin
clrscr;
writeln('a,b,c ?');
readln(a,b,c);
if (sqr(a)+sqr(b)=sqr(c))or(sqr(a)+sqr(c)=sqr(b))or(sqr(b)+sqr(c)=sqr(a))then
writeln('Y')
else
writeln('N');
readkey
end.
var
a,b,c:integer;
begin
clrscr;
writeln('a,b,c ?');
readln(a,b,c);
if (sqr(a)+sqr(b)=sqr(c))or(sqr(a)+sqr(c)=sqr(b))or(sqr(b)+sqr(c)=sqr(a))then
writeln('Y')
else
writeln('N');
readkey
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад