У изображения в формате BMP вес больше, но качество намного лучше. У изображения в формате JPEG наоборот. Если имеется много памяти, то лучше сохранять в формате BMP, а если наоборот, меньше, то лучше в JPEG'e, но качество будет хуже.
BMP - формат без потери информации. Целесообразно сохранять в нем, если требуется передать изображение в максимальном качестве. Yt gjllth;bdftn c;fnbz/ Формат JPG - формат хранения с потерями, использует сжатие и степень потерь зависит от степени сжатия. Используется для сохранения фотографий. По сути, даже для хранения информации без потери BMP сейчас не используется, используются, например, PNG - который позволят и избежать потерь, и сжать изображение.
Var x,y,z:integer; {описание переменных и их типа} begin writeln ('введи два числа'); {Вывод на экран сообщения-подсказки} readln (x,y); {считывание переменных} if x<0 then {проверка условия.} if y>x then z:=y {если условие истинно, то мы ищем большее из х и у. если у больше, то присваиваем z значение у} else z:=x {если же больше х, то присваиваем его значение} else {если условие ложно} if y>x then z:=x {то мы ищем меньшее из х и у. если у больше, то присваиваем z значение х} else z:=y; {если же больше х, то присваиваем значение у} writeln (z); {вывод результата на экран} end. {конец программы}
Const n=7; m=8; Var a:array[1..n,1..m] of integer; i,j,x,y,min:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln; end; min:=a[1,1]; x:=1; y:=1; for i:=1 to n do for j;=1 to m do if a[i,j]<min then begin min:=a[i,j]; x:=i; y:=j; end; writeln ('минимальный элемент=',min,' он находился: ',x,',',y); a[x,y]:=100; for i:=1 to n do begin for j:=1 to n do write (a[i,j]:4); writeln; end; end.
3.Var s:string; i:integer; begin writeln('Введи строку'); readln (s); for i:=1 to length(s) do if (s[i]='Е') or (s[i]='е') then delete(s,i,1); writeln(s); end.
