Информатика: Составить программу в паскале по выводу знака зодиака

Serey9999

15.01.2023 04:43

Информатика

Есть ответ 👍

Составить программу в паскале по выводу знака зодиака

240

383

Посмотреть ответы 2

Ответы на вопрос:

ахаххахаха11

Информатика

4,6(84 оценок)

var d,m: byte; begin write('введите день: '); readln(d); write('введите месяц: '); readln(m); case m of 3: if d< 21 then write('рыбы') else write('овен'); 4: if d< 21 then write('овен') else write('телец'); 5: if d< 22 then write('телец') else write('близнецы'); 6: if d< 22 then write('близнецы') else write('рак'); 7: if d< 23 then write('рак') else write('леа'); 8: if d< 24 then write('леа') else write('дева'); 9: if d< 24 then write('дева') else write('весы'); 10: if d< 24 then write('весы') else write('скорпион'); 11: if d< 23 then write('скорпион') else write('стрелец'); 12: if d< 22 then write('стрелец') else write('козерог'); 1: if d< 21 then write('козерог') else write('водолей'); 2: if d< 19 then write('водолей') else write('рыбы'); else write('нет такого месяца') end; end.