unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
comp,chel:integer;
i:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
comp:=random(10);
i:=0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
i:=i+1;
chel:=StrToInt(edit1.Text);
If chel>comp then
Begin
  ShowMessage('Попытка номер '+IntToStr(i)+#10+'Это число меньше  '+Edit1.Text);
end;
If chel<comp then
Begin
  ShowMessage('Попытка номер '+IntToStr(i)+#10+'Это число больше  '+Edit1.Text);
end;
If chel=comp then
Begin
  ShowMessage('Попытка номер '+IntToStr(i)+#10+'Ты угадал это число!  '+Edit1.Text);
  ShowMessage('Выходим');
  Form1.Close;
end;
end;

end.

#include <stdio.h>
#include <string.h>

#define MAX_SIZE 0xff

char *ReverseStr (char *s)
{
  int i = 0, j, len;
  char s2 [MAX_SIZE];

  len = strlen (s);
  j = len - 1;
  bzero (s2, len + 1);
  while (j >= 0)
  {
    s2 [i++] = s [j--];
  }
  return s2;
}

int main ()
{
  char s [MAX_SIZE], *s1, *s2, *s3;

  //strcpy (s, "dfgh fdgn zhopaapohz dfgn ghjk ghn fghmjnfc oooppppppooo dfgbs 777999999777");
  printf ("Vvedite stroky:\n");
  if (fgets (s, MAX_SIZE, stdin) == NULL)
  {
    printf ("Error\n");
    return -1;
  }
  s [strlen (s) - 1] = '\0';
  s1 = s2 = s;
  while ((s1 = strchr (s1, 0x20)) != NULL)
  {
    s1++;
    s2 [s1 - s2 - 1] = '\0';
    s3 = ReverseStr (s2);
    printf ("%s", s2);
    if (strstr (s2, s3) == NULL)
      printf (" - NO\n");
    else
      printf (" - Palyndrom :)\n");
    s2 = s1;
  }
  return 0;
}

memset (s2, '\0', len + 1);

s2 [len + 1] = '\0';