Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Решите, пожалуйста, в паскале)

5-9 класс

Ленчо 02 июля 2014 г., 1:12:16 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Flok
02 июля 2014 г., 2:10:47 (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.

Ответить

Другие вопросы из категории

Метеорологическая станция ведет наблюдение за температурой воздуха. Результатом одного измерения является целое число от -32 до +32 градусов,которое

записыватся цепочкой из нулей и единиц минимальной длины,одинаковой для каждого измерения. Станция сделала 40960 измерений. Определите информационный объем результатов наблюдений? Заранее спасибо !!!

ПОМОГИТЕ ПОЖАЛУЙСТАА!!!срочно надоо..ЗАДАЧА ПО ИНФОРМАТИКЕ!!Пусть видеопамять компьютера имеет объём 512 Кбайт. Размер графической сетки – 640х480.

Сколько страниц экрана может одновременно разместиться в видеопамяти при палитре из 256 цветов?

Читайте также

Решите, пожалуйста, в паскале)
1)поменять местами первую и последнюю цифру 3-х значного числа (через div и mod) командами пжл

2)Скорость лодки в стоячей воде V км/ч Скорость течения реки U км/ч (U 3) стоимость погонного метра шелка стоит х-золотых. сколько заплатит Грей за ткань своей бригантины, если общая площадь S парусов-(свое число),а ширина ткани в рулоне L-см.
РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ!!!!!
ЧЕРЕЗ VAR, присвоить, writeln,readln



Вы находитесь на странице вопроса "Решите, пожалуйста, в паскале)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.