Подсчитайте объем информации В битах и байтах. Середина экрана должна находиться на уровне глаз, перпендикулярно линии взора; на расстояние 55-65 см от глаз.

#include <iostream>
#include <stdio.h>
using namespace std;

int main(){
    int y;
    cin>>y;
    y=y%12;
    switch (y){
           case 4:{cout<<"Mouse"; break;}
           case 5:{cout<<"Bull";break;}
           case 6:{cout<<"Tiger";break;}
           case 7:{cout<<"Rabbit";break;}
           case 8:{cout<<"Dragon";break;}
           case 9:{cout<<"Snake";break;}
           case 10:{cout<<"Horse";break;}
           case 11:{cout<<"Goat";break;}
           case 0:{cout<<"Monkey";break;}
           case 1:{cout<<"Cock";break;}
           case 2:{cout<<"Dog";break;}
           case 3:{cout<<"Pig";break;}
           }
    cin.get();
    cin.get();
    return 0;
}

В общем, т.к. ты мне не ответил - лови две программы:
1)
Program dasf;
var b,c,i: integer;   
A: Array[1..100] of real;   
D: Array[1..100] of real;
begin
Writeln('Введите размерность массива D');
readln(b);
For i:=1 to b do 
begin   
Writeln('Введите элемент массива №',i);   
readln(D[i]); 
end;
Writeln('Массив А:');
For i:=1 to b do 
begin   
If i mod 2=1 then A[i]:=5+(D[i]*D[i])     
else A[i]:=D[i]/i;   
Writeln(A[i]); 
end;
end.

2)
Program fgsadg;
var i,b,x,y,z,k,t: integer;
begin 
Writeln('Введите сколько чисел будет использоваться:'); 
readln(b); 
Writeln('Введите х:'); 
readln(x); 
Writeln('Введите число №',1); 
readln(z); 
k:=0; 
For i:=2 to b do   
begin     
Writeln('Введите число №',i);     
readln(y);     
If z+y=x then k:=k+1;     
z:=y;   
end; 
Writeln(k); 
end. 
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.