Question

Введите на языке Pascal. Программа запрашивает пол (требуется ввести мужской или женский). Если введено мужской, то вывести на экран фразу "Вы - защитник Отечества", иначе - вывести фразу "Вам не повезло - женщины не служат в армии"

Answer 1

Var s:string;
begin;
writeln('Ваш пол?');
readl(s);
if (s='мужской') then 
writeln('Вы-защитник отечества');
if (s='женский') then
writeln('Вам не повезло - женцины не служат в армии');
end.

Answer 2

Вот пример программы на языке Pascal, которая запрашивает пол и выводит соответствующее сообщение:

javaCopy code
program MilitaryService;

var
  gender: char;

begin
  writeln('Введите ваш пол (м - мужской, ж - женский): ');
  readln(gender);
  if gender = 'м' then
    writeln('Вы - защитник Отечества')
  else if gender = 'ж' then
    writeln('Вам не повезло - женщины не служат в армии')
  else
    writeln('Некорректный ввод');
end.

Программа выводит сообщение, запрашивающее пол пользователя, и читает символ, введенный пользователем, в переменную gender. Затем она проверяет значение этой переменной с помощью оператора if. Если значение равно 'м', то программа выводит сообщение "Вы - защитник Отечества". Если значение равно 'ж', то программа выводит сообщение "Вам не повезло - женщины не служат в армии". Если значение не 'м' и не 'ж', то программа выводит сообщение об ошибке ввода.

Обратите внимание, что символы в одинарных кавычках используются для задания символьных литералов в Pascal.