<h2>1 терабайт= 1024 гигабайт</h2><h2>1 гигабайт=1024 мегабайт </h2><h2>1 мегабайт=1024 килобайт</h2><h2>1 килобайт=1024 байт</h2><h2>1 байт=8 бит</h2>
40*48:8 попробуй иак я не знпю как точно нотсчитаю так
Program p_1;
Uses Crt;
var
n1,n2,n3, max: integer;
begin
write('Введите 1 число: ');
readln(n1);
write('Введите 2 число: ');
readln(n2);
write('Введите 3 число: ');
readln(n3);
max:=n1;
if n1<n2 then
max:=n2;
if n3>n2 then
max:=n3;
writeln('Наибольшее число: ',max);
readln;
end.
Uses
crt;
var
a, b, c: integer;
begin
clrscr;
writeln('Что вы хотите сделать?');
writeln('1-сложить 2-отнять 3-разделить 4-умножить');
readln(c);
if c = 1 then begin
read(a, b);
writeln(a + b)
end
else
if c = 2 then begin
read(a, b);
writeln(a - b)
end
else
if c = 3 then begin
read(a, b);
writeln(a / b)
end
else
if c = 4 then begin
read(a, b);
writeln(a * b);
end
else
write('Так, стоп, че за фигня? Где то тут меня надурили...');
readkey
end.
<em><u>Но короче и понятнее это написать так:</u></em>
uses
crt;
var
a, b, c: integer;
begin
ClrScr;
Writeln('Что вы хотите сделать?');
Write('1-сложить 2-отнять 3-разделить 4-умножить'); Readln(c);
if (c >= 1) and (c <= 4) then begin
Write('Введите через пробел два натуральных числа: '); Read(a, b);
case c of
1: Writeln(a + b);
2: Writeln(a - b);
3: Writeln(a / b);
4: Writeln(a * b)
end;
end
else Write('Так, стоп, че за фигня? Где то тут меня надурили...');
ReadKey
end.
24 разряда шины = 3 байта за один такт
А тактовая частота будет 33 000 000 / 3 = 11 000 000 1/с = 11 Мегагерц
