Составьте программу в паскале, в которой нужно найти наименьшее из двух чисел

program chislo;

var a,b,min: real;

begin 

writeln ('vvedine chisla a and b');

readln (a,b);

if (a> b) then min: =b ; else min: =a

writeln ( 'min=',min);

readln;

end.

 

в верхнем решении находим max который неуказан в   , поэтому это лишнее !

program f1;

var a,b,max, min: real;

begin 

writeln ('vvedine chisla');

readln (a,b);

if (a> b) then (a: =max) else a: =min;

writeln ('max=',max , 'min=',min);

readln;

end.

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var lvl: =0;   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   var prede: =false;   foreach var c in s do       if c='e' then begin           if prede then begin prede: =false; lvl+=1 end           else prede: =true           end       else           if c='b' then begin prede: =false; lvl+=1 end;   writeln(lvl,' level') end. результат выполнения программы 63 level и второй вариант, "как не учат в школе": // pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   writeln(regex.matches(s,'e[eb]|b').count,' level') end. результат выполнения аналогичный.

#include "stdafx.h" #include < stdio.h> #include < windows.h> int main()       {       setconsolecp(1251);               setconsoleoutputcp(1251);     int const n=3; int mas[n][n]; int sum1, sum2; bool magik; for (int i=0;   i< n;   i++)       for (int j=0;   j< n;   j++)           {             printf("mas[%d][%d] = ",  i+1, j+1);             scanf("%d",& mas[  i  ][  j  ]);           } printf("\nвведенная матрица: \n");       for (int i=0;   i< n;   i++)           {               for (int j=0;   j< n;   j++)                         {                             printf("%d   ",mas[  i  ][  j  ]);                         }               printf("\n");           } sum1=0; sum2=0; for (int i = 0; i< n; i++)       {               sum1 += mas[  i  ][  i  ];             sum2 += mas[  i  ][  n-1-i  ];       } printf("сумма главной диагонали = %d\n",  sum1); printf("сумма побочной диагонали = %d\n",  sum2); magik = true; for (int i=0;   i< n;   i++)     {           if (sum1==sum2)               {                   sum2=0;                   for (int j=0;   j< n;   j++)                       {                           sum2 += mas[  i  ][  j  ];                       }                 } else  { magik=false; break; }       } if (magik==true)       {             for (int i=0;   i< n;   i++)                     {                     if (sum1==sum2)                           {                             sum2=0;                             for (int j=0;   j< n;   j++)                                 {                                     sum2 += mas[  j  ][  i  ];                                 }                           }                           else  { magik=false; break; }                   }         } if (magik==true)       printf("\nматрица является магическим квадратом\n");     else       printf("\nматрица не является магическим квадратом\n"); system("pause"); return 0; }