PascalABC.NET
1)
var
a:String = 'лекарство';
b,c,d:String;
begin
b:= copy(a,1,2);
c:= copy(a,7,1)+copy(a,9,1);
d:= copy(a,8,2);
WriteLn(b+c);
WriteLn(b+d);
end.
2)
var a:String = 'нитка';
begin
WriteLn(a);
a:= a.Replace('ит','ер');
WriteLn(a);
a:= a.Replace('е','о');
WriteLn(a);
a:= a.Replace('нор','кри');
WriteLn(a);
a:= a.Replace('рик','ниг');
WriteLn(a);
a:= a.Replace('кни','пур');
WriteLn(a);
end.
3)
var a,b,c,d,e,f:String;
begin
a:='кормила';
b:='ку';
c:='ка';
d:='ш';
e:='он';
f:=' ';
WriteLn(b+b+d+c+f+a+f+b+b+d+e+c);
end.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.
<u><em>Тестовые решения:</em></u>
Введите М и N: 5 7
m=0, n=1
Введите М и N: 4 4
m=8, n=8
По источнику создания;
по степени доступа;
по целевому назначению;
по способу представления и виду носителя;
по форме собственности;
по методу организации и хранения;
по содержанию;
по языковому и национально-территориальному или географическому признаку;
по уровню компетенции и т. д.
Привет.
Ответ вложен ниже. Пиши, если будут вопросы