Даю 99 баллов! Нужно ввести 2 строки, затем соединить их так, чтобы между ними стояла...

Question

Даю 99 баллов!
Нужно ввести 2 строки, затем соединить их так, чтобы между ними стояла точка с запятой, и чтобы "а" заменялось "А".

Ужасно умоляю, хоть какие-нибудь находки!

Comments

паскаль?

---

да

---

есть фотка где задание написано? или перечитай. не то ятотн

---

Нет, мне учительница сама диктовала. А что именно вы не понимаете?

Answer 1

Var s1,s2,s:string;
i:integer;
begin
writeln('Введите две строки:');
readln(s1);
readln(s2);
s:='';
for i:=1 to length(s1) do
 if s1[i]<>'а' then s:=s+s1[i] else s:=s+'A';
s:=s+';';
for i:=1 to length(s2) do
 if s2[i]<>'а' then s:=s+s2[i] else s:=s+'A';
writeln(s);
end.

Пример:
Введите две строки:
Ужасно умоляю
хоть какие-нибудь находки!
УжAсно умоляю;хоть кAкие-нибудь нAходки!

Comments

Да хранит тебя Господь! Спасибо! Просто клятвенно благодарю!

---

Пожалуйста. Клятвенно благодарят, пожалуй, первый раз. )