1. На какие группы можно разделить графические редакторы?
2. Что лежит в основе растровой графики? Векторной?
3. Что вы знаете о пикселях?
4. Что такое цветовая модель?
5. Почему цветовую модель CMYK называют субтрактивной?
6. Почему цветовую модель RGB называют аддитивной?
7. Почему цветовую модель HSВ называют перцепционной?
8. Назовите базовые цвета RGB-модели.
9. Назовите базовые цвета CMYK-модели.
10. Назовите базовые компоненты HSВ-модели.
11. Расскажите о инструментах редактора Paint. Перечислите
возможности инструментов.
12. Расскажите о палитре цветов редактора Paint. Назовите ее
основные возможности.
13. Каковы трансформации изображений в программе
Paint?
14. На рисунке изображена яхта, стоящая на середине озера.
Как с редактора Paint добавить на рисунок отражение
яхты в озере?
15. Необходимо нарисовать в редакторе Paint звездное небо
с десятком разных звезд. Есть ли необходимость рисовать каждую
звезду отдельно?
16. На фасаде большого здания находится много одинаковых
окон. Как нарисовать много одинаковых объектов с ре-
дактора Paint?
17. Можно ли с редактора Paint добавить в коллаж
свою фотографию? Как это сделать?
18. Можно ли с редактора Paint вырезать из группо-
вого фотоснимка свою фотографию? Как это сделать?
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End.
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами
var
a: array[,] of integer;
m, n, i, j, k, sum: integer;
begin
Write('Введите размер матрицы M и N: '); ReadLn(m, n);
SetLength(a, m, n);
randomize;
k := - 1;
WriteLn('Массив:');
for i := 0 to m - 1 do
begin
for j := 0 to n - 1 do
begin
a[i, j] := random(100);
Write(a[i, j]:4);
end;
WriteLn;
end;
for i := 0 to m - 1 do
if (a[i, 1] > a[i,0]) and (k = -1) then k := i;
if k = -1 then
begin
WriteLn('Нет строк, у которых второй элемент больше первого');
exit;
end;
for j := 0 to n - 1 do
if (a[k, j] mod 2 = 1) then sum := sum + a[k, j];
WriteLn('Сумма нечетных чисел строки, у которой второй элемент больше первого, равна ', sum);
end.
Объяснение: