var
n:integer;
begin
readln(n);
case n mod 12 of
4:writeln('год крысы');
5:writeln('год коровы');
6:writeln('год тигра');
7:writeln('год зайца');
8:writeln('год дракона');
9:writeln('год змеи');
10:writeln('год лошади');
11:writeln('год овцы');
0:writeln('год обезьяны');
1:writeln('год петуха');
2:writeln('год собаки');
3:writeln('год свиньи');
end;
end.
//прога на Pascal`e
var
a : array[1..10] of shortint;
i, count, sum : byte;
begin
randomize;
write ('Сформированный массив: ');
for i:=1 to 10 do
begin
a[i]:=random (20);
write (a[i], '; ');
inc (sum, a[i]);
end;
writeln ();
write ('Кол-во элементов массива, значение которых превышает СА: ');
for i:=1 to 10 do
if a[i]>(sum/10) then inc (count, 1);
write (count);
end.
Аалфавитный подход позволяет вычислить количество информации, содержащейся в тексте, сложив информационные объёмы каждого символа, при этом содержание текста не учитывается.