СРОЧНО ПОМОГИТЕ Программа запрашивает ваш пол (м и ж обозначить цифрами 1 и 2...

Question

СРОЧНО ПОМОГИТЕ Программа запрашивает ваш пол (м и ж обозначить цифрами 1 и 2 соответственно). Если пользователь выбирает первый вариант, то программа запрашивает любимое женское имя, если второй вариант - наоборот.Пояснение: за пол отвечает целочисленная переменная (тип integer), за имя - переменная строкового типа (тип string). Например, var gender:integer; var name:string

Answer 1

Ответ:

Pascal

Объяснение:

program imya;

var

 name: string;

 gender: integer;

begin

 Write('Укажите Ваш пол (1 - муж, 2 - жен): ');

 ReadLn(Gender);

 if gender = 1 then

 begin

   Write('Введите любимое женское имя: ');

   ReadLn(name);

 end

 else

 begin

   Write('Введите любимое мужское имя: ');

   ReadLn(name);

 end;

end.