Решить в паскале (без массива) №1 составьте не менее трёх вариантов программы определения наименьшего их трех данных чисел. №2 составить программу сортировки по возрастанию значений трёх переменных : а, в, с . №3 заданы размеры а, в прямоугольного отверстия x, y, z кирпича. определить пройдет ли кирпич через отверстие .

первые два вчера писал:  

в третьем не уверен в самом

var

  a, b, x, y, z : real;

begin

  read (a, b, c, x, y);

  if ((a < = x) and (b < = y)) or ((a < = y) and (b < = x))

  or  ((a < = x) and (b < = z)) or ((a < = z) and (b < = x))

  or  ((a < = z) and (b < = y)) or ((a < = y) and (b < = z)) then writeln ('yes') else writeln ('no');

end.

слово вводится с клавиатуры латиницей(максимум 19 символов)

#include < iostream> using std: : cout; using std: : cin; using std: : endl; #include < cstring> using std: : strlen; using std: : strcat; #include < iomanip> using std: : setw; int main(){    char s[20];     cout < < "enter the word: ";     cin > > setw(20) > > s;     char s2[strlen(s) * 3 + 1];     for(int i = 0; i < strlen(s); i++)    {          s2[i] = '*';     }    s2[strlen(s)] = '\0';     strcat(s2, s);     for(int i = strlen(s2); i < sizeof(s2); i++)    {          s2[i] = '*';     }    s2[sizeof(s2)] = '\0';     cout < < s2 < < endl;     return 0; }

var a: array[1..10,1..15]of integer; i,j,n,x: integer; beginfor i: =1 to 10 do for j: =1 to 15 do a[i,j]: =random(101); for i: =1 to 10 do begin for j: =1 to 15 do write(a[i,j],' '); if j=15 then writeln; end; readln(x); for i: =1 to 10 do for j: =1 to 15 doif a[i,j]=x then inc(n); writeln(n); end.

var a: array[1..10,1..15]of integer; i,j,k: integer; beginfor i: =1 to 10 do for j: =1 to 15 do a[i,j]: =random(101); for i: =1 to 10 do begin for j: =1 to 15 do write(a[i,j],' '); if j=15 then writeln; end; for i: =1 to 10 do for j: =1 to 15 doif a[i,j] mod 2=0 then inc(k); writeln(k); end.