Основы программирования в паскале

BEGIN ClrScr;

   Write( 'Введите  четырехзн чное число : ' ); ReadLn(Number);

   Write( 'Цифры числ  ' , Number , ' : ' );

   Number:=Abs(Number); 

   i := Number div 1000;       Write(i:3);   {перв я цифр }

   j := Number div 100 mod 10; Write(j:3);   {втор я цифр }

   k := Number div 10 mod 10;  Write(k:3);   {третья цифр }

   l := Number mod 10;         WriteLn(l:3); {четверт я цифр } 

   P := i * j * k * l ;

   WriteLn( 'О т в е т : произведение цифр равно ' , P );

   ReadLn

END. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

            21. Определить является  ли заданная последовательность

                    чисел   1,  2,..., N  монотонно убывающей.

                                Систем  тестов

              +------------------------------------------------+

              ¦ Номер ¦ Проверяемый ¦    Д нные    ¦           ¦

              ¦ тест     ¦   случ  й    +--------------¦ Результ т  ¦

              ¦       ¦             ¦ N           ¦ Вектор А ¦           ¦

              ¦-------+-------------+---+----------+-----------¦

              ¦    1       ¦   Является     ¦ 3 ¦(3, 2, 1) ¦   "Да "    ¦

              ¦-------+-------------+---+----------+-----------¦

              ¦    2       ¦ Не является ¦ 3 ¦(2, 3, 1) ¦   "Нет"   ¦

              +------------------------------------------------+}

Program Decrease;

   Uses Crt;

   Var A    : Array [1..10] of Real;

       N, i : Integer;

       Otvet: Boolean;

{--------------------------------------------}

Procedure InputOutput; {опис ние процедуры ввод -вывод  д нных}

  Begin

    ClrScr;

    Write('Количество элементов - '); ReadLn(N);

    For i := 1 to N do

     begin

       Write('A[' , i , '] = '); ReadLn(A[i])

     end; WriteLn; 

    WriteLn('З д нн я последов тельность чисел');

    For i := 1 to N do Write(A[i] : 5 : 1);

    WriteLn

  End; { of InputOutput }

{--------------------------------------------}

Procedure Processing( Var Otvet: Boolean);

  Begin    {опис ние процедуры проверки н убыв ние элементов}

    Otvet := TRUE; i:=1;

    While (i<=N-1) and Otvet do

      If (A[i]<A[i+1]) then Otvet := FALSE

                       else i := i+1;

  End; { of Processing }

{--------------------------------------------}

Procedure Result(Otvet: Boolean); {опис ние процедуры вывод  результ т }

  Begin

    If Otvet then Write('обр зует ')

             else Write('не обр зует ');

    WriteLn('монотонно  убыв ющую последов тельность.');

    ReadLn

  End;

{--------------------------------------------}

BEGIN

   InputOutput;       {вызов процедуры ввод -вывод }

   Processing(Otvet); {вызов процедуры проверки н   убыв ние}

   Result(Otvet);     {вызов процедуры вывод  результ  т }

END.