Program n_1;
var a, b: integer;
begin
randomize;
a:=random (1000) + 1;
while a <> b do begin
write ('Введи число!!!');
readln (b);
if b > a then writeln ('Перебор!!!')
else if b < a then writeln ('Маловато будет...')
end;
writeln ('Молодец! Угадал!');
readln();
end.
Вопрос мне, если честно не понятен.
Но, я думаю, это отношение одного предмета к другому.
К примеру: 
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <math.h>
int main()
{
int x, y;
printf("\n Vvedite X and Y: ");
scanf("\%d" "\%d", &x, &y);
if (x < y) printf("\n x = \%d, y = \%d", (x + y)/2, 2 * x * y);
else printf("\n x = \%d, y = \%d", 2 * x * y, (x + y)/2);
printf("\n\n <span><span>to continue</span><span>press</span></span>... ");
getch( );
return 0;
}
Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (a<10)and(a mod 3=0) then k:=k+1;
readln(a);
end;
writeln(k);
end.
Пример:
12
5
34
9
8
6
0
<span>2</span>
100 мегабит это 1024000 килобит. 1 мегабит = 1024 килобита.
1024000 килобит это 104857600 бит. 1 килобит = 1024 бита.
104857600 бит это 13107200 байт. 1 байт - 8 бит.
То есть, теоретически 13107200, но на практике может быть значительно меньше.
Ответ: 13107200
