Векторный или растровый редактор? 1) Я- токарь, мне нужно разработать чертеж детали для станка с ЧПУ. В каком типе редактора я буду работать?(изменено)
2) Я-фотограф, взял заказ на реставрацию старой фотографии. В каком типе редактора я буду работать?
Какой формат файла?
3) Я сделал фото на телефон, выложила фото в соцсеть. Какой, скорее всего, формат моего файла?
4) Я скачала простенькую анимацию с интернета.Какой, скорее всего, формат моего файла?
5) Мне нужно сделать баннер для мероприятия.Какой, скорее всего, формат моего файла?
6) Я-програмист, пишу приложение под WINDOWS. Нарисовал графические иконки для приложения.Какой, скорее всего, формат моих рисунков?
7) Я- фотограф из второго вопроса. Обрабатываю старую фотграфию в очень удобном и ра редакторе. Но ,моя работа еще не закончена, мне нужно ее сохранить для дальнейшей работы..Какой, скорее всего, формат моего файла?(изменено)
8) В моем редакторе 2048 цветов. Сколько бит на одну точку используется для сохранения файла?
9) В моем редакторе 256 цветов. Сколько Байт на одну точку используется для сохранения файла?
10) В моем редакторе для сохранения на одну точку выделено 9 бит. Сколько цветов в моем редакторе?
11*) В моем редакторе 48 цветов. Сколько бит на одну точку используется для сохранения файла?
12*) Сколько Байт нужно для сохранения рисунка 8 * 16 точек, если в редакторе 32 цвета?(изменено)
var
i,j,j0: integer;
a:array[1..m,1..n] of integer;
jExit,iExit:Boolean;
begin
Randomize;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
a[i,j]:=random(2);
write(a[i,j]:2)
end
end;
writeln;
j:=0; jExit:=false;
repeat
j:=j+1; i:=1; iExit:=false;
if a[i,j]=0 then begin
repeat
i:=i+1;
if a[i,j]<>0 then iExit:=true
until iExit or (i=m);
if i=m then jExit:=true
end
until jExit or (j=n);
if a[i,j]=0 then writeln('Нулевой столбец ',j)
else writeln('Нет нулевых столбцов');
end.
Тестовый пример:
0 1 1 1 1 0 1 0 1 0 0 0 0 0 1
0 0 1 0 1 0 0 0 1 1 0 0 0 0 0
1 1 0 0 0 1 0 1 1 1 1 1 0 1 1
1 1 1 0 1 0 1 0 0 1 0 1 0 1 0
Нулевой столбец 13
не так уж и трудно, если
program project2;
var
n,a,b,c,i,k,max,min: longint;
inp,outp: text;
begin
assign(inp,'input.txt');
reset(inp);
assign(outp,'output.txt');
rewrite(outp);
readln(inp,n);
max: =0;
min: =0;
c: =0;
for i: =1 to n do
begin
read(f1,a);
if i=1 then
b: =a;
if a> max then
max: =a;
k: =a-c;
c: =a;
if k< 0 then
begin
k: =abs(k);
min: =min+k;
if k> min then
min: =k;
end;
end;
max: =max-b;
write(outp,max,' ',min);
close(inp);
close(outp);
end.