var d,d1,d2,d3,d4,n:longint;
begin
writeln('BBEDUTE 4-x 3Ha4Hoe 4ucJIo');
read(d);
writeln('BBEDUTE n');
read(n);
d1:=d div 1000;
d2:=(d div 100) mod 10;
d3:=(d div 10) mod 10;
d4:=d mod 10;
if (n=d1) or (n=d2) or (n=d3) or (n=d4)
then
writeln('BCE OK N - 4acTb 4ucJla')
else
writeln('He/7paBuJIbHo');
end.

var
num, N : integet;
result:boolean;
begin
 write('Введите 4-х щначное число: ');
 readln(num);
 write('Введите искомую цифр: ');
 readln(n);
 if (num mod 10 = N)or ((num div 10) mod 10 = N) or ((num div 100) mod 10 = N ) or (num div 1000 = N ) then res:=TRUE
else res:=FALSE;
writeln('Входит ли  цифра в число: ', res);
end.

#include <QApplication>
#include <QGridWidget>
#include <QLineEdit>
#include <QPushButton>
#include <QStatusBar>

class MainWindow : public QGridWidget
{
   Q_OBJECT
   
   public:
   MainWindow( int n, Qt::Orientation orientation, QWidget *parent = 0, Qt::WFlags f = 0 );
   private:
   QStatusBar *antwort;
   float _f, _s;
   private slots:
   void showSumm();
};

MainWindow::MainWindow( int n, Qt::Orientation orientation, QWidget *parent, Qt::WFlags f ) : QGridWidget( n, parent, f )
{
   QStatusBar *promt1_label = new QStatusBar( this );
   promt1_label -> message ( "Enter first number:" );
   promt1_label -> setSizeGripEnabled ( false );
   QLineEdit *promt1 = new QLineEdit( this );
   
   QStatusBar *promt2_label = new QStatusBar( this );
   promt2_label -> message ( "Enter second number:" );
   promt2_label -> setSizeGripEnabled ( false );
   QLineEdit *promt2 = new QLineEdit( this );
   
   QStatusBar *btn_label = new QStatusBar( this );
   btn_label -> message ( "Now, press this button:" );
   btn_label -> setSizeGripEnabled ( false );
   QPushButton *operate = new QPushButton( "C'mon, baybe!", this );
   
   QStatusBar *antwort_label = new QStatusBar( this );
   antwort_label -> message ( "Answering:" );
   antwort_label -> setSizeGripEnabled ( false );
   antwort = new QStatusBar( this );
   antwort -> setSizeGripEnabled ( false );
   
   QString txt1;
   txt1 = promt1 -> text();
   _f = txt1.toFloat();
   txt1 = promt2 -> text();
   _s = txt1.toFloat();
   
   connect( operate, SIGNAL( clicked() ), this, SLOT( showSumm() ) );
}

void MainWindow::showSumm()
{
   float res = _f + _s;
   QString str = QString( "%1" ).arg( res );
   antwort -> message( str );
}


int main( int argc, char *argv[] )
{
   QApplication calculator( argc, argv );
   
   MainWindow *main_widget = new MainWindow( 2, Qt::Horizontal );
   main_widget -> setFixedSize( 350, 200 );
   
   calculator.setMainWidget( main_widget );
   main_widget -> show();
   
   return calculator.exec();
}

#include "main.moc"

var
num, N : integet;
result:boolean;
begin
 write('Введите 4-х щначное число: ');
 readln(num);
 write('Введите искомую цифр: ');
 readln(n);
 res:=( (num mod 10 = N)or ((num div 10) mod 10 = N) or ((num div 100) mod 10 = N ) or (num div 1000 = N )  )
writeln('Входит ли  цифра в число: ', res);
end.

uses crt;
var
   x,y:real;
begin
     clrscr;
     readln(x);
     If x>3 then y:=sin(x)/(sqr(x)-9) else y:=sqr(x)+3*x+9;
     writeln('Function F(x)=',y:2:2);
     readln;
     end.

uses crt;
var
   a, R:real;
begin
     clrscr;
  Writeln ('Введите  сторону треугольника: );
  readln(a);
  Writeln ('Введите  радиус окружности: );
 readln(R);
  if (R= a/sqrt(3) ) then Writeln (' Данный треугольник поместиться в окружность' )
 else  Writeln (' Данный треугольник не поместиться в окружность' );
 readln;
end.

uses crt;
var
   x,y:real;
begin
     clrscr;
     readln(x);
     case  (x>3)  of 
      TRUE:  y:=sin(x)/(sqr(x)-9);
      FALSE: y:=sqr(x)+3*x+9;
     end;
     writeln('Function F(x)=',y:2:2);
     readln;
     end.