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

Помогите по программированию в Pascal)
Вот задание: Ввести имя, отчество и фамилию человека (в одну переменную). Определить пол человека (по отчеству).

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

Program A1;
var
a:string;
begin
read(a);
if copy(a,length(a),1)=ч then writeln(Муж);
if copy(a,length(a),1)=а then writeln(Жен);
end.