Решите, пожалуйста, в паскале)
5-9 класс
|
var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then
begin
if (sqr(a)+sqr(b)=sqr(c)) then writeln ('Это прямоугольный треугольник');
if (sqr(a)+sqr(b)>sqr(c)) then writeln ('Это остроугольный треугольник');
if (sqr(a)+sqr(b)<sqr(c)) then writeln ('Это тупоугольный треугольник');
end
else writeln ('Такого треугольника не существует');
end.
Другие вопросы из категории
чисел А и В,иначе произведение чисел В и С.
нормализованной форме.
записыватся цепочкой из нулей и единиц минимальной длины,одинаковой для каждого измерения. Станция сделала 40960 измерений. Определите информационный объем результатов наблюдений? Заранее спасибо !!!
Сколько страниц экрана может одновременно разместиться в видеопамяти при палитре из 256 цветов?
Читайте также
2)Скорость лодки в стоячей воде V км/ч Скорость течения реки U км/ч (U 3) стоимость погонного метра шелка стоит х-золотых. сколько заплатит Грей за ткань своей бригантины, если общая площадь S парусов-(свое число),а ширина ткани в рулоне L-см.
РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ!!!!!
ЧЕРЕЗ VAR, присвоить, writeln,readln
решите пожалуйста способом паскаля