Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
Текстовый файл, ну то есть содержит текстовую информацию.
Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub
Подготовить тесто,нагреть сковороду,смазать маслом сковороду,разлить тесто по поверхности сковороды,круговыми движениями придать форму круга,поставить на огонь примерно на 30 секунд,перевернуть блин,перенести блин на тарелку,смазать блин маслом,посыпать сахаром блин,повторить.
Хахахахахахаах
зебра тоесть: пешеходный переход или места где люди могуд проходить безопасна дорогу.