Текст
Объяснение:
Информационный объём 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.
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.
Объяснение:
Всё строится на проверках длин сторон, за у пользователя