Помогите по программированию в Pascal) Вот задание: Ввести имя, отчество и фамилию человека (в одну переменную). Определить пол человека (по отчеству).
Помогите по программированию в 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.
Не нашли ответ?
Похожие вопросы