Программа запрашивает ваш пол (м и ж обозначить цифрами 1 и 2 соответственно). Если пользователь выбирает первый вариант, то программа запрашивает любимое женское имя, если второй вариант - наоборот.
Пояснение: за пол отвечает целочисленная переменная (тип integer), за имя - переменная строкового типа (тип string). Например, var gender:integer; var name:string
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.