Составить программу, определяющую животное, соответствующее году по китайскому гороскопу

Var a, b, c, i: integer; begin     read (a);     a: =a-4;     if a = -3 then write ('петух');     if a = -2 then write ('собака');     if a = -1 then write ('свинья ');     if a mod 12 = 0 then writeln ('крыса');     if a mod 12 = 1 then writeln ('бык');     if a mod 12 = 2 then writeln ('тигр');     if a mod 12 = 3 then writeln ('кролик');     if a mod 12 = 4 then writeln ('дракон');     if a mod 12 = 5 then writeln ('змея');     if a mod 12 = 6 then writeln ('лошадь');     if a mod 12 = 7 then writeln ('овца');     if a mod 12 = 8 then writeln ('обезьяна');     if a mod 12 = 9 then writeln ('петух');     if a mod 12 = 10 then writeln ('собака');     if a mod 12 = 11  then writeln ('свинья'); end.

Program god_japan; var y, y1: integer; color : integer; beast : integer; begin write('введите год'); readln(year); year1 : = ((year - 1984) mod 60 + 60) mod 60; beast : = year1 mod   12; color : = (year1 div 12) mod 5;   write(year, ' - год '); if beast in [2, 3, 4] then  case color of  0: write('зеленого');   1: write('красного');   2: write('желтого');   3: write('белого');   4: write('черного');   end else  case color of    0: write('зеленой');   1: write('красной');   2: write('желтой'); 3: write('белой');   4: write('черной');   end;   write(' '); case beast of  0: write('крысы'); 1: write('коровы'); 2: write('тигра');   3: write('зайца');   4: write('дракона');   5: write('змеи');   6: write('лошади'); 7: write('овцы');   8: write('обезьяны');   9: write('курицы');   10: write('собаки');   11: write('свиньи');   end;   writeln(); end.

Решение для 8-битного кодирования информации. 1 символ описывается одним байтом информации  на 1 странице 32 * 48 =  1536 байт информации на дискету помещается 1,44 мб или  1  457  664   байт  1457664 : 1536 =  949 страниц п.с. емкость дискеты в байтах взята реальная. если переводить 1,44 мб через умножение на двойку в 10 степени, чтобы перевести в килобайты, а потом еще раз на 2 в десятой, чтобы получить байты,  т.е.  1,44*1024*1024, то получатся другие цифры.

#include < iostream> #include < cstdlib> using namespace std; int main() {       int i,j;       int a[4][3];       for (i=0; i< 4; i++){             cout< < "stroka "< < i+1< < endl;             for (j=0; j< 3; j++) {                       cout< < "element "< < j+1< < ": ";                       cin> > a[i][j];               }               cout< < endl;       }       cout< < "resul'tat"< < endl;       for (i=0; i< 4; i++) {               for (j=0; j< 3; j++) {                       a[i][j]*=a[i][j];                       cout< < a[i][j]< < " ";               }               cout< < endl;       }       cin> > i; //ïðîñòî ÷òîáû ýêðàí íå çàêðûëñÿ       return 0; } тестовое решение (dev c++) stroka 1 element 1: 1 element 2: 2 element 3: 3 stroka 2 element 1: 4 element 2: 5 element 3: 6 stroka 3 element 1: 7 element 2: 8 element 3: 9 stroka 4 element 1: 10 element 2: 11 element 3: 12 resul'tat 1 4 9 16 25 36 49 64 81 100 121 144: