Question

Напиши программу для выполнения данного вопроса на паскале
Задание 4!!!

Answer 1

Ответ:

Задание а)

##

var s := ReadString;

case s[^1] of

 'а': s := s[:^1] + 'очка';

 'я': s := s[:^1] + 'ечка';

end;

s.Print

Задание б)

##

var s := ReadString;

case s[^1] of

 'а': s[^1] := 'ы';

 'я': s[^1] := 'и';

end;

s.Print