Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон.Если существует такой треугольник, то определите его тип (равносторонний, равнобедренный, разносторонний)Пример Не существует a b c>> 1 2 1 Равносторонний a b c>> 2 2 2 Равнобедренный a b c>> 20 20 30 Разносторонний a b c>> 3 4 5

var a, b, c: integer;begin

    readln(a, b, c);

    if (a + b <= c) or (b + c <= a) or (a + c <= b) then

         writeln('Не существует')

    else if(a = b)and(b = c) then

         writeln('Равносторонний')

    else if(a = b)or(b = c)or(a = c) then

         writeln('Равнобедренный')

    else

        writeln('Разносторонний')

end.

Объяснение:

Всё строится на проверках длин сторон, за у пользователя

Текст

Объяснение:

Информационный объём 1 сообщения равен произведению количества K символов в сообщении на информационный вес i символа алфавита: I=К⋅i

Т.к. формат текстового файла предназначен для хранения именно текста и на 1 символ (букву) в нём обычно тратится от 1 до 2 байтов, то такой формат наиболее оптимален  по соотношению количества информации к физическому объёму файла.

В растровом (картинка) формате хранится информация о пикселах и их цвете, поэтому на один символ даже в чёрно-белом формате тратится объём данных для изображение матрицы точек минимум 8х8, соответствующей графическому изображению символа.

8*8*1=64 бит = 8 байт - для такой буквы.

Видео формат содержит в себе набор растров + еще и аудио-информацию, поэтому он занимает наибольший физический объём при наименьшем информационном объёме.

program raf105;

const

 n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять

var

 a:array[1..n,1..n] of integer;

 asum:array[1..n] of integer;

 i,j,k,sum,kolsum: integer;

 x: boolean;

begin

write('Введите число k (не больше ',n,'): ');

readln(k);

for i:=1 to n do

begin

 writeln;

 writeln('Введите ',n,' чис. ',i,' стр.');

 for j:=1 to n do

   readln(a[i,j]);

end;

writeln;

writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');  

for i:=1 to n do

begin

 x:= true;

 sum:= 0;

 for j:=1 to k do

 begin

   if x and (a[i,j] <= 0)

     then x:= false;

 end;

   if x

   then  

   begin

     for j:=1 to n do

       sum+= a[i,j];

     kolsum+= 1;

     asum[kolsum]:= sum;

     writeln(asum[kolsum]);

   end;

end;

end.