Информатика 10 класс.. составьте программу, которая: а) определяет коды двух введенных с клавиатуры символов;

A) program primer; uses crt; var a, b: char; begin   write('введите первый символ a = ');   readln(a);   write('введите второй символ b = ');   readln(b);     writeln;   write('код символа a = ', ord(a), ', код символа b ', ord(b));   readln; end. в) program primer2; uses crt; var a,b,c: char; begin         write('введите чила a, b, c = ');         readln(a,b,c);                 writeln('результат сцепления: ', a+b+c); end.

Объяснение:

Выберите неверное высказывание, если оно имеется в предложении и рядом запиши правильное.

1.Чем меньше угол падения солнечных лучей, тем больше тепла Земля получает.

2. Угол падения солнечных лучей зависит от широты местности.

3. Чем ближе к экватору, тем ниже Солнце над горизонтом.

4.В дни равноденствия на всей Земле день больше ночи.

5.На территории экватора зима мало заметна.

6. Солнце нагревает территорию экватора под углом 90*.

7. Если бы не было наклона земли к плоскости орбиты, то сезоны года сохранились бы.

8. 22 июня день летнего солнцестояния в южном полушарии.

9. Тропики условные линии, очерчивающие область, в которой бывают полярная ночь и полярный день.

10. В день зимнего солнцестояния самый короткий день и самая длинная ночь в году.

11. Полярный день и полярная ночь на Северном и Южном полюсах длится полгода.

12. В Москве сейчас зима , а в Мехико лето.

Всё, что находится между комментариями {1+}{1-} относится к первой программе, {2+}{2-} — ко второй. const   n = 5;   type   matrix = array[1..n, 1..n] of integer;   {2+}   row = array[1..n] of integer;   {2-}   {1+} function maxelemofmaindiag(m: matrix): integer; var   i, max: integer; begin   max : = m[1, 1];   for i : = 2 to n do     if m[i, i] > max then        max : = m[i, i];   maxelemofmaindiag : = max; end; {1-}   {2+} function minelemofcolumns(m: matrix): row; var   i, j: integer;   r: row; begin   for i : = 1 to n do   begin     r[i] : = m[1, i];     for j : = 2 to n do       if m[j, i] < r[i] then         r[i] : = m[j, i];   end;   minelemofcolumns : = r; end; {2-}   var   m: matrix;   {2+}   r: row;   {2-}   i, j: integer;   begin   writeln('исходный массив: ');   randomize;   for i : = 1 to n do   begin     for j : = 1 to n do     begin       m[i, j] : = random(100) + 1;       write(m[i, j]: 4);     end;     writeln;   end;   {1+}   writeln('максимальный элемент главной диагонали равен ', maxelemofmaindiag(m));   {1-}   {2+}   r : = minelemofcolumns(m);   writeln('минимальные элементы столбцов: ');   for i : = 1 to n do     write(r[i]: 4);   writeln;   {2-} end.   пример вывода: исходный массив:   22  13  80  77  14   50  86  49  22    7   88  68  48  27  79   100    3  11  43  94   85  30  53  34    9 максимальный элемент главной диагонали равен 86 минимальные элементы столбцов:   22    3  11  22    7