1)var a:array [0..5] of Integer; i,j:Integer; begin Randomize; j:=0; for i:=0 to 5 do a[i]:=Random(100); for i:=0 to 5 do if a[i] mod 3 =0 then Inc(j); Writeln(j); readln; 2)var a:array [0..5] of Integer; i,j:Integer; begin Randomize; j:=0; for i:=0 to 5 do a[i]:=Random(100); for i:=0 to 5 do if a[i] mod 2 =0 then j:=j+a[i]; Writeln(j); readln; 3)a:array [0..5] of Integer; i,s:Integer; begin Randomize; s:=1; for i:=0 to 5 do a[i]:=Random(9)+1; for i:=0 to 5 do if i mod 2 <>0 then s:=s*a[i]; Writeln(s); readln; end. 4)const n=5;m=5; var a:array [0..n,0..m] of Integer; i,j:Integer; begin Randomize; for i:=0 to n do for j:=0 to m do a[i,j]:=Random(100); for i:=0 to n do begin Writeln; for j:=0 to m do write(a[i,j]:3); end; for i:=0 to n do for j:=0 to m do begin if a[i,j] mod 2 =0 then a[i,j]:=2 else if a[i,j] mod 2 <>0 then a[i,j]:=1; end; Writeln; for i:=0 to n do begin Writeln; for j:=0 to m do write(a[i,j]:3); end; Readln; end. 5)const n=5;m=5; var a:array [0..n,0..m] of Integer; i,j:Integer; begin Randomize; for i:=0 to n do for j:=0 to m do a[i,j]:=Random(10); for i:=0 to n do begin Writeln; for j:=0 to m do write(a[i,j]:3); end; for i:=0 to n do for j:=0 to m do a[i,j]:=a[i,j]*2; Writeln; for i:=0 to n do begin Writeln; for j:=0 to m do write(a[i,j]:3); end; Readln; end.
1.) Графический редактор — это программа для создания, редактирования и просмотра графических изображений.
2.)Пиксель - минимальный элемент любого растрового двумерного изображения. Это точка, которая имеет определенный цвет и местоположение.
3.)Щелкните правой кнопкой мыши рисунок, который вы хотите сохранить в виде отдельного файла изображения, и выберите команду Сохранить как рисунок
В списке тип файла выберите нужный формат
В поле имя файла введите новое имя для рисунка или просто подтвердите предлагаемое имя файла
Выберите папку, в которой вы хотите сохранить изображение
Нажмите кнопку Сохранить
4.) нужно нажать клавишу shift
5.) Чтобы изменить стиль линии, в группе Фигуры щелкните Контур и выберите стиль линии.
6.)Inkscape - это очень популярный векторный графический редактор с открытым исходным кодом, который может работать как в операционной системе Linux, так и в Windows и MacOS.
7.) эт я уже сама знаю) это плавный переход от одного цвета в другой
8)Инструмент Кривая Безье обеспечивает максимально возможную степень контроля над формой кривой в процессе рисования. Каждый щелчок кнопкой мыши при рисовании кривой с данного инструмента создает узел, который соединяется плавной кривой с предыдущим узлом. Если щелкнуть кнопкой мыши и протащить мышь, то можно воздействовать на форму кривой, входящей в данный узел
9.) Кривая Безье, Кривая Спиро
10.)Масштаб проще всего изменять клавишами "+" и "-" , а можно в самом нижнем правом углу основного окна Inkscape, там есть специальное окошечко (помечено на рисунке 1 стрелкой). Когда сетка создана, ее можно убирать и снова накладывать из меню Вид - > Сетка. Хорошо бы сохранить файл под именем lamp.svg, чтобы программа запомнила текущую сетку. Вобще, по ходу работы рекомендую время от времени сохранять файл
1)var a:array [0..5] of Integer; i,j:Integer;
begin
Randomize;
j:=0;
for i:=0 to 5 do
a[i]:=Random(100);
for i:=0 to 5 do
if a[i] mod 3 =0 then
Inc(j);
Writeln(j);
readln;
2)var a:array [0..5] of Integer; i,j:Integer;
begin
Randomize;
j:=0;
for i:=0 to 5 do
a[i]:=Random(100);
for i:=0 to 5 do
if a[i] mod 2 =0 then
j:=j+a[i];
Writeln(j);
readln;
3)a:array [0..5] of Integer; i,s:Integer;
begin
Randomize;
s:=1;
for i:=0 to 5 do
a[i]:=Random(9)+1;
for i:=0 to 5 do
if i mod 2 <>0 then
s:=s*a[i];
Writeln(s);
readln;
end.
4)const n=5;m=5;
var a:array [0..n,0..m] of Integer; i,j:Integer;
begin
Randomize;
for i:=0 to n do
for j:=0 to m do
a[i,j]:=Random(100);
for i:=0 to n do
begin
Writeln;
for j:=0 to m do
write(a[i,j]:3);
end;
for i:=0 to n do
for j:=0 to m do
begin
if a[i,j] mod 2 =0 then
a[i,j]:=2
else if a[i,j] mod 2 <>0 then
a[i,j]:=1;
end;
Writeln;
for i:=0 to n do
begin
Writeln;
for j:=0 to m do
write(a[i,j]:3);
end;
Readln;
end.
5)const n=5;m=5;
var a:array [0..n,0..m] of Integer; i,j:Integer;
begin
Randomize;
for i:=0 to n do
for j:=0 to m do
a[i,j]:=Random(10);
for i:=0 to n do
begin
Writeln;
for j:=0 to m do
write(a[i,j]:3);
end;
for i:=0 to n do
for j:=0 to m do
a[i,j]:=a[i,j]*2;
Writeln;
for i:=0 to n do
begin
Writeln;
for j:=0 to m do
write(a[i,j]:3);
end;
Readln;
end.
:]
Объяснение:
1.) Графический редактор — это программа для создания, редактирования и просмотра графических изображений.
2.)Пиксель - минимальный элемент любого растрового двумерного изображения. Это точка, которая имеет определенный цвет и местоположение.
3.)Щелкните правой кнопкой мыши рисунок, который вы хотите сохранить в виде отдельного файла изображения, и выберите команду Сохранить как рисунок
В списке тип файла выберите нужный формат
В поле имя файла введите новое имя для рисунка или просто подтвердите предлагаемое имя файла
Выберите папку, в которой вы хотите сохранить изображение
Нажмите кнопку Сохранить
4.) нужно нажать клавишу shift
5.) Чтобы изменить стиль линии, в группе Фигуры щелкните Контур и выберите стиль линии.
6.)Inkscape - это очень популярный векторный графический редактор с открытым исходным кодом, который может работать как в операционной системе Linux, так и в Windows и MacOS.
7.) эт я уже сама знаю) это плавный переход от одного цвета в другой
8)Инструмент Кривая Безье обеспечивает максимально возможную степень контроля над формой кривой в процессе рисования. Каждый щелчок кнопкой мыши при рисовании кривой с данного инструмента создает узел, который соединяется плавной кривой с предыдущим узлом. Если щелкнуть кнопкой мыши и протащить мышь, то можно воздействовать на форму кривой, входящей в данный узел
9.) Кривая Безье, Кривая Спиро
10.)Масштаб проще всего изменять клавишами "+" и "-" , а можно в самом нижнем правом углу основного окна Inkscape, там есть специальное окошечко (помечено на рисунке 1 стрелкой). Когда сетка создана, ее можно убирать и снова накладывать из меню Вид - > Сетка. Хорошо бы сохранить файл под именем lamp.svg, чтобы программа запомнила текущую сетку. Вобще, по ходу работы рекомендую время от времени сохранять файл
Надеюсь ;]