Var n,d:integer; begin write('Введите месяц :'); readln(n); write('Введите день :'); readln(d); n:=n mod 12;
case n mod 12 of 1: if d<=20 then writeln('Козерок') else writeln('Водолей'); 2: if d<=21 then writeln('Водолей') else writeln('рыба'); 3: if d<=21 then writeln('рыба') else writeln('овен'); 4: if d<=21 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<=24 then writeln('лев') else writeln('дева'); 9: if d<=24 then writeln('дева') else writeln('весы'); 10: if d<=24 then writeln('весы') else writeln('скорпион'); 11: if d<=23 then writeln('скорпион') else writeln('стрелец'); 12: if d<=22 then writeln('стрелец') else writeln('козерок'); end; end.
//без if вряд ли удаться обойтись(+ я не учитывал високосный год и кратный 100 и 400)
В одной из кодировок Unicode каждый символ кодируется 16 битами. При подготовке реферата по биологии Вова написал следующий текст (в нём нет лишних пробелов).
«Як, тар, лама, окапи, пекари, бегемот, антилопа, бабирусса, бородавочник относятся к диким парнокопытным животным».
Затем Вова вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 16 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
Решение.
Поскольку один символ кодируется двумя байтами, из текста удалили 8 символов. Заметим, что лишние запятая и пробел занимают четыре байта. Значит, название животного, которое удалили из списка, должно состоять из шести букв, поскольку (16 − 4) : 2 = 6 символов. Из всего списка только одно название животного состоит из 6 букв — пекари.
begin
write('Введите месяц :');
readln(n);
write('Введите день :');
readln(d);
n:=n mod 12;
case n mod 12 of
1: if d<=20 then writeln('Козерок') else writeln('Водолей');
2: if d<=21 then writeln('Водолей') else writeln('рыба');
3: if d<=21 then writeln('рыба') else writeln('овен');
4: if d<=21 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<=24 then writeln('лев') else writeln('дева');
9: if d<=24 then writeln('дева') else writeln('весы');
10: if d<=24 then writeln('весы') else writeln('скорпион');
11: if d<=23 then writeln('скорпион') else writeln('стрелец');
12: if d<=22 then writeln('стрелец') else writeln('козерок');
end;
end.
//без if вряд ли удаться обойтись(+ я не учитывал високосный год и кратный 100 и 400)
В одной из кодировок Unicode каждый символ кодируется 16 битами. При подготовке реферата по биологии Вова написал следующий текст (в нём нет лишних пробелов).
«Як, тар, лама, окапи, пекари, бегемот, антилопа, бабирусса, бородавочник относятся к диким парнокопытным животным».
Затем Вова вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 16 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
Решение.
Поскольку один символ кодируется двумя байтами, из текста удалили 8 символов. Заметим, что лишние запятая и пробел занимают четыре байта. Значит, название животного, которое удалили из списка, должно состоять из шести букв, поскольку (16 − 4) : 2 = 6 символов. Из всего списка только одно название животного состоит из 6 букв — пекари.
ответ: пекари.
Объяснение: