вкажіть порядок додання кнопки на панелі інструментів а) вкладка ,, Команда,,
б) пункт горизонтального меню ,,Сервіс,,
в) вибрати категорію команди
г) пункт спадаючого меню ,,Настройки,,
д) перенести кнопку команди на панель інструментів шляхом перетаскування
е) вибрати кнопку команди
Объяснение:
Задание 1
program bukva;
const R=[' ','.',',',';',':','?','!','-']; // разделители
var
s,bukv:string;
i,kol,len:integer;
procedure UpCaseRus(var s:string);
{русские в верхний регистр}
var i:integer;
begin
for i:=1 to length(s) do
if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё' then s[i]:='Ё';
end;
begin
readln(s);
readln(bukv);
UpCaseRus(s);
UpCaseRus(bukv);
For i:=length(s) downto 2 do
if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);
len:=length(s);
kol:=0;
for i:=len downto 1 do
begin
if s[i] in R then
if s[i+1]=bukv then kol:=kol+1;
end;
if s[1]=bukv then kol:=kol+1;
writeln('Слов на букву '+bukv+' ',kol);
readln;
end.
Задание 2
const r=[' ','.',',',';',':','?','!','-'];
var
s:string;
i,kol,d:integer;
begin
readln(s);
len:=length(s);
kol:=0; d:=0;
For i:=length(s) downto 2 do
if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);
for i:=1 to length(s) do
begin
if s[i] in r then kol:=kol+1
else if (s[i] in ['0'..'9']) then d:=d+1;
end;
writeln('Слов всего ',kol+1);
writeln('Цифр в тексте ',d);
readln;
end.
#include <iostream.h>
#include <math.h>
void main()
{
int i,n;
cout<<"Input size of mas: ";
cin>>n;
int *mas=new int[i];
cout<<"Input element of mas"<<endl;
for(i=0;i<n;i++)
cin>>mas[i];
cout<<"Output element of mas:"<<endl;
for(i=0;i<n;i++)
cout<<mas[i]<<" ";
cout<<endl;
int min; int pozmin;
min=mas[0]; pozmin=0;
for(i=1;i<n;i++)
{
if(mas[i]<min)
{
min=mas[i];
pozmin=i;
}
}
int max; int pozmax;
max=mas*[0]; pozmax=0;
{
if(mas[i]>max)
{
max=mas[i];
pozmax=i;
}
}
int temp;
temp=mas[pozmax];
mas[pozmax]=mas[pozmin];
mas[pozmin]=temp;
for(i=0;i<n;i++)
cout<<mas[i]<<" ";
cout<<endl;
}
Написано на с++