1. Информатика
  2. Программа запрашивает ваш пол

Программа запрашивает ваш пол (м и ж обозначить цифрами 1 и 2 соответственно). Если пользователь выбирает первый вариант, то программа запрашивает любимое женское имя, если второй вариант - наоборот.

Пояснение: за пол отвечает целочисленная переменная (тип integer), за имя - переменная строкового типа (тип string). Например, var gender:integer; var name:string

anastasia1292 anastasia1292    3   15.04.2020 00:48    0

Ответы
DanilVolkov95 DanilVolkov95  13.10.2020 06:30

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mussay86 mussay86  15.07.2019 15:30
Штирлицу удалось похитить пароль от сейфа с секретными материалами — группенфюрер мюллер неосторожно написал его на бумаге и, порвав на несколько частей, выбросил в урну....
лилия581 лилия581  15.07.2019 15:30
Цель работы: изучение методов разработки алгоритмов обработки многомерных массивов данных и их запись в виде блок-схем. : найти сумму элементов квадратной матрицы а[m,...
СофияKomarova СофияKomarova  18.05.2021 13:51
Проведите сравнительный анализ растровой и векторной графики с точки зрения технологии создания изображений, возможности их редактирования (включая масштабирование), объёма...
1939345 1939345  05.03.2020 18:38
составить программу в Паскале....
Nikita111r2 Nikita111r2  05.03.2020 18:48
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN−2, AN−4, …, A1. Условный оператор не использовать....
113456890 113456890  07.10.2019 22:50
Вычислите: а) 28div6б) 174mod14 в) (1342 div8)mod6...
prapra2017oz2bo2 prapra2017oz2bo2  07.10.2019 22:50
Найдите и исправьте все ошибки допущенные в этой программе запишите программы без ошибок. var a; b; c: integer; . begin writeln( видите число a); readln( a). b=5. c: =a...
Elvira2018 Elvira2018  21.06.2019 07:50
Термин в графическом редакторе, которым называются изменяемые свойства рисунка - длина, ширина, цветность...
vladys4u vladys4u  21.06.2019 06:11
Информатика, колледж, системы счисления 1. записать число -0,00793 в нормализованной форме. 2. найти десятичное представление числа, записанного в доп. коде: 1 0011000...
katemcgrat katemcgrat  21.06.2019 07:50
Выполнить арифметическую операцию над числами и представить результат в указанных системах счисления: (авс)16 + (1001101)2 → ( ) 2, 8, 10, 16...

Популярные вопросы