3 года назад

Помогите с задачей по информатике Даны 3 отрезка a,b,c определить какой получится треугольник.

1 ответ:

0 0

Паскаль. Sqr это возведение в квадрат, Sqrt это квадратный корень.
var a,b,c:real;
begin
read(a, b, c);
if ((a=sqrt(sqr(b)+sqr(c)))or(b=sqrt(sqr(a)+sqr(c)))or(c=sqrt(sqr(a)+sqr(b))))then
write('Это прямоугольный треугольник')
else
write('Это не прямоугольный треугольник')
end.

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

Ване на день рождения подарили n кубиков. Он с друзьями решил построить из них пирамиду. Ваня хочет построить пирамиду следующим

анна2204

Function tet2n(n As Integer) As Integer

Dim i As Integer

i = 8

Do While i * (i + 1) * (i + 2) / 6 > n

i = i - 1

Loop

tet2n = i

End Function

Excel VBA

0 0

4 года назад

Какому цвету в цветовой модели RGB соответствуют значения интенсивностей цветовых компонент (255, 0, 0)? белому чёрному синему к

Meduk

Какому цвету в цветовой модели RGB соответствуют значения интенсивностей цветовых компонент (255, 0, 0)? белому чёрному синему красному зелёному

ответ: красному

0 0

4 года назад

помогите написать программы на паскале.1. вычислить произведение нечетных чисел в диапазоне от 40 до 202. определите и выведите

lightradiance [8]

var i,count: integer;
proizv:longint;

begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.

0 0

4 года назад

Нарисуйте звёздочками лесенку указанного размера, как показано в примерах. Входные данные Первая строка содержит целое число N (

Ридли8 [379]

Var i, n, j: integer;
begin
write('Введите n ');
readln(n);
if (n>=1) and (n<=100) then
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
end.

0 0

3 года назад

Необходимо отгадать слово, состоящее из 5 букв и записанное с помощью алфавита из 32 букв. Можно задавать вопросы, ответом на ко

Roma15252

Одну из 32 букв можно отгадать (при оптимальной стратегии игры) максимум за log(2)32 = 5 вопросов.
Отгадать слово из 5 букв можно максимум за 5*5 = 25 вопросов.

0 0

3 года назад