Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Ввести имя, отчество и фамилию. Преобразовать их к формату «фамилия-инициалы». Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные, так и строчные.

Ответ оставил Гость

Если предполагается, что ФИО вводится на одной строке через пробел, то первая программа будет такой:
var fio,s,f,i:string; p:integer;
begin
writeln(Введите ФИО);
readln(fio);
p:=pos( ,fio);
s:=copy(fio,1,p-1)+-+fio[p+1];
 delete(fio,1,p);
p:=pos( ,fio);
s:=s+fio[p+1];
writeln(s);
end.

Программа для 2 задачи:
var s:string; i:integer;
begin
writeln(Введите строку);
readln(s);
for i:=1 to length(s) do
case s[i] of
 А: s[i]:=Б;
 а: s[i]:=б;
 Б: s[i]:=А;
 б: s[i]:=а;
end;
writeln(s);
end.