Перевести из Pascal на язык C++ program junk;
uses crt;
var m,d:byte;
begin
clrscr;
writeln('Введите дату рождения в формате дата <Enter> месяц (пример 12 <Enter> 02) ');
readln(d,m);
textcolor(red);
case m of
1: if d<20 then writeln('Козерог') else writeln('Водолей');
2: if d<19 then writeln('Водолей') else writeln('Рыба');
3: if d<21 then writeln('Рыба') else writeln('Овен');
4: if d<20 then writeln('Овен') else writeln('телец');
5: if d<21 then writeln('Телец') else writeln('Близнецы');
6: if d<22 then writeln('Близнецы') else writeln('Рак');
7: if d<23 then writeln('Рак') else writeln('Лев');
8: if d<23 then writeln('Лев') else writeln('Дева');
9: if d<23 then writeln('Дева') else writeln('Весы');
10: if d<23 then writeln('Весы') else writeln('Скорпион');
11: if d<23 then writeln('Скорпион') else writeln('Стрелец');
12: if d<22 then writeln('Стрелец') else writeln('Козерог')
end;
readln
end.​

Популярно: Информатика

• 

  linakn14

  29.03.2020 23:58
  1)вычислите сумму элементов одномерного массива а(10). 2)вычислите...
• 

  аричунка

  09.05.2023 11:14
  Составьте программу заполнения массива a[1..10] следующими числами:...
• 

  Tina05

  28.08.2022 05:51
  :даны переменные а и в.требуется обменять их значениями,т.е. переменная...
• 

  H1e1l1p

  22.10.2021 17:46
  Составить программу в паскале которая заменяет слог му на слог...
• 

  Lolilolokigh

  31.07.2022 23:03
  Выделенный объект документа связанный с другим объектом файлом...
• 

  Nematzoda1999

  29.08.2021 10:25
  Программа должна считать, сколько раз в строке S встречается цифра...
• 

  Евдокия47

  27.04.2021 12:37
  Вexel ( visual qbasic ( )) написать программу вычисления значений...
• 

  kristinakotkotk

  01.05.2020 03:57
  БЫСТРЕЙ) Информатика...
• 

  Hockeyist97

  07.10.2022 01:15
  Ребус в-ал па-мка нарисована рыба и буква к нарисована машина...
• 

  tatarincevai

  16.10.2020 09:20
  Самый короткий доклад Ночь перед Рождеством...