Question

Напишите программы на языке ПаскальABC для заданий 3 и 4 . Тема ,,Перебор в строковых велечинах"​

Answer 1

PascalABC.NET

Задание 3:

• ### RS.Split(' ').Sel(w → w[^1] in ',!?.' ? w[:^1]+'сла'+w[^1] : w+'сла').Pr

Задание 4:

• ##
• var lat := 'shh sh zh ch je jo ju ja a b v g d e z i j k l m n o p r s t u f h x c w " y '' q'.Split(' ');
• var rus := 'щ ш ж ч е ё ю я а б в г д е з и й к л м н о п р с т у ф х х ц ш ъ ы ь э'.Split(' ');
• var s := ReadString;
• lat.ForEach((c,i) → begin
•  s := s.Replace(c, rus[i]);
•  s := s.Replace(c.ToUpper, rus[i].ToUpper)
• end);
• s.Print