От этого зависит годовая оценка по информатике) это в паскале с строк дано предложение. определить, есть ли в нем буква «а». в случае положительного ответа найти порядковый номер первой из них.

var s: string; begin    write('введите предложение');     readln(s);

    if pos('a', s)> 0 writeln(pos('a',s))    else writeln('буквы "а" в предложении нет'); end.

Var n,k,sum : integer; begin   sum: =0;   readln(n,k);   while n> 0 do   begin     if (n mod 10)> k then sum: =sum+(n mod k);     n: =n div 10;   end; end. или так var n,k,sum : integer; begin   sum: =0;   readln(n,k);   while n> 0 do   begin     sum: =sum+(n mod 10)*ord((n mod 10)> k);     n: =n div 10;   end; end. или так var n,k : integer; function sum(n,k : integer) : integer; begin   if (n> 0) and ((n mod 10)> k) then sum: =(n mod 10)+sum(n div 10,k) else sum: =0; end; begin   readln(n,k);   writeln(sum(n,k)); end.

Microsoft qbasic m = 10 n = 15 dim a(1 to m, 1 to n) as integer dim x(1 to n) as integer, y(1 to m) as integer randomize timer cls print "исходная матрица" for i = 1 to m     for j = 1 to n           a(i, j) = int(99 * rnd)           print using "###"; a(i, j);     next j     print next i input "строка для х и столбец для y (через запятую): ", p, q print "вектор-строка х" for j = 1 to n     x(j) = a(p, j)     print using "###"; x(j); next j print print "вектор-столбец y" for i = 1 to m     y(i) = a(i, q)     print using "###"; y(i); next i print тестовое решение: исходная матрица   51 91 87 95 48 54 64 92  2 91 84 56 60 87  6   96 55 81 11 46 42 38 14 40 73 33 97 16 90 65   65 41 52  1 30 62 68 32 16 86 80 72 94 76 50   63 44 84 83 19 29 95 75 88  9 13 78 45 72 51   98 98 93 70 19 36 16 21 38 87 59 26 48 11 52   77 24 11 91 68 49 72 25 39 54 31 55 57 92 55   79 19 37 67 40 72 91 76 13 75 47 48 12 64 44   87 24 62 73 58 65  2 90 21 63 79 67 92 68 27   57 42 82 21 94  1 19  1 12  1 84 27 86 42 89   54 12 78 75 33 87 34 78 38 50 40 11 19  6  2 строка для х и столбец для y (через запятую): 4,8 вектор-строка х   63 44 84 83 19 29 95 75 88  9 13 78 45 72 51 вектор-столбец y   92 14 32 75 21 25 76 90  1 78