Выберите правильный ответ
1.Векторные графические изображения хорошо поддаются масштабированию (изменению размеров), так как: 1) формируются из графических примитивов (линий, окружностей, прямоугольников и т.д.) 2) используют большую глубину цвета, 3) формируются из пикселей 4) используют эффективные алгоритмы сжатия
2. Графика с представлением изображения в виде совокупности точек называется
3. Для векторного графического редактора верным(и) является(ются) утверждение(я): выберите несколько вариантов ответа 1) можно объединять графические объекты 2) нельзя сохранять рисунки на внешних носителях 3) можно формировать разную заливку одного объекта 4) возможно удаление части изображения
4. Из каких элементов формируется изображение в растровом графическом редакторе
5. При увеличении растрового изображения может: 1) повыситься качество изображения 2) уменьшиться количество цветов изображения 3) появиться лестничный эффект 4) увеличиться количество цветов изображения
6. Какой графический формат позволяет при сохранении фотографий получить наименьший объем: 1) JPG 2) PCX 3) BMP 4) TIFF
7. Какой формат графических файлов НЕ ИСПОЛЬЗУЕТСЯ для размещения изображений на веб-страницах: 1) GIF 2) PNG 3) JPG 4) BMP
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 раза, если не устраевает, можете воспользоваться другими ресурсами
Объяснение:
procedure F(n: integer);
begin
if n>0 then begin
Write (n);
F(n-2);
F(n div 4);
end
end;
begin
F(9);
end.
На выходе будет 97531112
Если нужна трассировка, её можно сделать примерно так:
procedure F(n: integer);
begin
Writeln('Вход');
if n>0 then begin
Writeln ('В выходную строку: ',n);
Writeln('Вызов F(n-2)');
F(n-2);
Writeln('Вызов F(n div 4)');
F(n div 4);
end;
Writeln('Выход')
end;
begin
F(9);
end.
Результат трассировки:
Вход
В выходную строку: 9
Вызов F(n-2)
Вход
В выходную строку: 7
Вызов F(n-2)
Вход
В выходную строку: 5
Вызов F(n-2)
Вход
В выходную строку: 3
Вызов F(n-2)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 2
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход