Question

по дате рождения определить знак зодиака. обозначить d - день, и - месяц на паскале и использовать boolean 17 января
и к этому блок схему

Answer 1

Ответ:

Объяснение:

var

 d, m: Integer; // Переменные для дня и месяца рождения

 isCapricorn, isAquarius: Boolean; // Флаги для знаков зодиака

 

begin

 d := 17; // Задаем день рождения

 m := 1;  // Задаем месяц рождения

 

 // Проверяем, является ли дата в диапазоне для Козерога (22 декабря – 19 января)

 isCapricorn := (m = 12) and (d >= 22) or (m = 1) and (d <= 19);

 

 // Проверяем, является ли дата в диапазоне для Водолея (20 января – 18 февраля)

 isAquarius := (m = 1) and (d >= 20) or (m = 2) and (d <= 18);

 

 // Выводим результаты

 writeln('Козерог: ', isCapricorn);

 writeln('Водолей: ', isAquarius);

end.