Тема: Технология обработки графической информации. Растровая графика. (вопросы с паинтом связаны, а у меня пк нету. кому не сложно ) ответьте на следующие вопросы:
1) Каким можно выбрать кнопу панели инструментов?
2) Как можно выбрать цвет?
3) Как получить одну или несколько копий объекта?
4) В чем состоит различие в использовании правой и левой кнопок мыши?
5) Каким образом можно использовать инструмент «Масштаб» для реализации увеличения в 2;6;8; раз. Как отменить увеличение масштаба?
6) Как переместить объект?
7) Как сформатировать шрифт?
8) Как можно выполнить поворот объекта?
9) Каким образом можно увеличить масштаб просмотра?
10) Каким образом можно сохранить файл?
z:string[10];
x:string[2];
i,j,k,m: integer; //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0; //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
begin;
for m:=1 to 10 do
if St[j]=z[m] then inc(k);
end;
if k=0 then
begin;
writeln('в тексте нет цифр');
exit;
end; //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.