50 БАЛЛОВ!!! Решить хотя бы одну из задач ​

Question

50 БАЛЛОВ!!! Решить хотя бы одну из задач ​

---

Comments

Пронрамиу в Паскале сделать, на уровне 8-9 класса

---

программу*

---

Первую сделали, осталась вторая

Answer 1

Ответ:

Var s:string; i:integer;

Begin

Readln(s); i:=length(s);

while (i>0) and (s [ i]=' ') do i:=i-1;

if i=0 then Writeln('слова в строке не обнаружены')

else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' ');

End.

Объяснение

uses crt;

var s: string;

   i: integer;

begin

write('s=');

readln(s);

for i:=1 to length(s) do

   if (s[i]='à') or  (s[i]='À') or (s[i]='a') or (s[i]='A')

      then s[i]:='O';

write('s=',s);

end.

Comments

1-пишет слово в обратном порядке

---

спасибо, сейчас проверю

---

давай)

---

посмотри вторую

---

Окей, через полчаса, у меня урок

---

ок

---

Я посмотрел вторую, все норм, но есть олна проблемка. Мне нужно А заменить на ТУ, когда я вместо О пишу ТУ, пишет, что нельзя преобразовать тип string в char

---

замени в программе букву

---

на которую нужно преобразовать

---

я так и сделал. просто я не могу его заменить на ТУ, могу только изменить на один любой символ