<?PHP
function variable($variable_name) {
   global $HTTP_GET_VARS, $HTTP_POST_VARS, $HTTP_COOKIE_VARS, $_GET, $$variable_name;
   $$variable_name = "";
   $no_get_vars = array(mesg=>"mesg");
   if (isset($HTTP_GET_VARS[$variable_name])) {$$variable_name = $HTTP_GET_VARS[$variable_name];}
   if (isset($HTTP_POST_VARS[$variable_name])) $$variable_name = $HTTP_POST_VARS[$variable_name];
   if (is_string($$variable_name)) {
      $$variable_name = str_replace("\0","", $$variable_name);
      $$variable_name = str_replace("\t"," ", $$variable_name);
      if (get_magic_quotes_gpc()) $$variable_name = stripslashes($$variable_name);
   }
}

variable("login"); //получаем переменную
variable("pass");

//проверка введенного ника на допустимые символы
if (ereg("[^".$nick_available_chars."]", $login)) {
   print "err=2";
   exit;
}

//проверка введенного ника на длинну
if ((strlen($login)<3) or (strlen($login)>12)) {
   print "err=3";
   exit;
}
//проверка пароля на длинну
$pass = str_replace("\t","",$pass);
if (strlen($pass)<1) {
   print "err=4";
   exit;
}

//проверка существования ника
$array = file("users.dat");
for ($i=0;$i<count($array);$i++) {
      $data = unserialize($array[$i]);
      if ($data[0] == $login) {
          print "err=1";
          exit;
     }   
}
$pass = md5($pass);
$data[0]=$login;
$data[1]=$pass;
$data[2]=time(); //тут я хранил дату регистрации
$data[3]=time(); //тут я хранил дату последнего посещения
$array = serialize($data);

$f = fopen("users.dat", "a+");
fwrite($f, $array."\n");
fclose($f);

print "err=0";
?>

Dim A() As Integer
Private Sub Command1_Click()
'создаю массив 5х10
ReDim A(0 To 5, 0 To 10)
'заполняю массив случайными числами
For i = 0 To 5
    For j = 0 To 10
        A(i, j) = Int(Rnd * 50)
    Next j
Next i
'собственно первая часть задания (вычитаю)
For i = 0 To UBound(A, 1) - 1 'с нулевого по предпоследний столбец
    For j = 0 To UBound(A, 2) 'по всем строкам
        A(i, j) = A(i, j) - A(5, j)
    Next j
Next i
'нахожу сумму всех элементов
Sum = 0
For i = 0 To UBound(A, 1) 'с нулевого по последний столбец
    For j = 0 To UBound(A, 2) 'по всем строкам
        Sum = Sum + A(i, j)
    Next j
Next i
'создаю одномерный массив из последнего столбца
Dim B() As Integer
ReDim B(0 To UBound(A, 2))
For i = 0 To UBound(A, 2)
    B(i) = A(UBound(A, 1), i) 'беру значения из последнего столбца
Next i
End Sub

tmpArr = Array("A", "B", "C") 'это так, бижутерия

Dim Var(0 To 3) As Integer 'массив с переменными

'заполняем массив
For i = 0 To 2
    Var(i) = InputBox("Введите переменную " & tmpArr(i) & " в ур-нии А*X^2 + B*X + C")
Next i

D = Var(1) * Var(1) - 4 * Var(0) * Var(2) 'дискриминант
If D > 0 Then
    X1 = -(Var(1) + Sqr(D)) / 2 / Var(0)
    X2 = -(Var(1) - Sqr(D)) / 2 / Var(0)
ElseIf D = 0 Then
    X1 = -Var(1) / 2 / Var(0)
    X2 = X1
ElseIf D < 0 Then
    'MsgBox "Корней нет"
    X1 = 0 'я так понимаю это и есть мнимые корни?
    X2 = 0
End If

Private Sub Command1_Click()
call Rabota_s_massivami()
end Sub

Dim X1 As Long
Dim X2 As Long

Private Sub Korni(Optional Var)
tmpArr = Array("A", "B", "C") 'это так, бижутерия

If Not IsArray(Var) Then 'если не были переданы переменные, то спрашиваем их
ReDim Var(0 To 3) As Integer 'массив с переменными
'заполняем массив
For i = 0 To 2
    Var(i) = InputBox("Введите переменную " & tmpArr(i) & " в ур-нии А*X^2 + B*X + C = 0")
Next i
End If

D = Var(1) * Var(1) - 4 * Var(0) * Var(2) 'дискриминант
If D > 0 Then
    X1 = -(Var(1) + Sqr(D)) / 2 / Var(0)
    X2 = -(Var(1) - Sqr(D)) / 2 / Var(0)
ElseIf D = 0 Then
    X1 = -Var(1) / 2 / Var(0)
    X2 = X1
ElseIf D < 0 Then
    'MsgBox "Корней нет"
    X1 = 0 'я так понимаю это и есть мнимые корни?
    X2 = 0
End If
End Sub

Private Sub Command1_Click()
'передаем массив с переменными
Massiv1 = Array(1, 3, 2)
Call Korni(Massiv1)
Debug.Print "X1= " & X1
Debug.Print "X2= " & X2
Debug.Print "-----------"

'не передаем массив с переменными
Call Korni
Debug.Print "X1= " & X1
Debug.Print "X2= " & X2
Debug.Print "-----------"
End Sub

#include <iostream>
#include <string>
#include <conio.h>

using namespace std;

int main()
{
  string inputString("String for words revert");

  string revertString;
  string buff;
  int length = inputString.length();
  for (int i = 0; i < length; i++)
  {
    char c = inputString[i];
    if ((c == ' ') || (i == (length - 1)))
    {
      revertString += buff + c;
      buff.clear();
    }
    else
      buff = c + buff;
  }
  cout << revertString << endl;
  _getch();
  return 0;
}