<u>MS DOS QBasic 1.0</u>
Dim n As Integer, a As Double, b As Double
CLS
INPUT "0-площадь квадрата, иное-периметр прямоугольника"; n
If n = 0 Then
INPUT "Длина стороны: "; a
Print "Площадь квадрата " + Str$(a ^ 2)
Else
INPUT "Длина стороны прямоугольника: "; a
INPUT "Ширина стороны прямоугольника: "; b
Print "Периметр прямоугольника " + Str$(2 * (a + b))
End If
Uses crt;
var i,s:integer;
begin
s:=0;
for i:=1 to 10 do
s:=s+i*i;
writeln(s);
end.
1 байт =8 бит
1 Кб - 1024 байта = 2^10 байт
1 Мб -1024 Килобайта= 2^10 килобайт
1 Гб <span>- 1024 Мегабайта= 2^10 мегабайт
__________________________
48567 : 8 = </span>6070,875 байт
6070,875 :1024 = 5,9 Кбайт
5,9 : 1024 = 0,006 Мегабайт
Обьект - обьект +1000000000000000000!!!