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

Первая программа. program d_and_e; var     a,b,sum_d,sum_e: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второеое число: ');   readln(b);   sum_d: =(a div 10) + (b div 10);   sum_e: =(a mod 10) + (b mod 10);   writeln('сумма десятков чисел: ', sum_d);   writeln('сумма единиц чисел: ', sum_e); end. вторая программа. program d_and_e; var     a,b,mult_d1_e2,mult_e1_d2: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второе число: ');   readln(b);   mult_d1_e2: =(a div 10) * (b mod 10);   mult_e1_d2: =(a mod 10) * (b div 10);   writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);   writeln('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2); end. третья программа. program d_and_e; var     a,b,mult_d1_e2,sum_e1_d2: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второе число: ');   readln(b);   mult_d1_e2: =(a div 10) * (b mod 10);   sum_e1_d2: =(a mod 10) + (b div 10);   writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);   writeln('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2); end.

//весьма слабое решение, но после перерыва мне простительно, хех. //pascal abc.net v3.1 сборка 1219 var   ar,arodd,arnotodd: array of integer;   n,i,j,k1,k2: integer; begin   readln(n);   setlength(ar,n+1);   k1: =1;   k2: =1;   for i: =1 to n do   begin   readln(ar[i]);   if odd(i) then     begin     setlength(arodd,k1);     arodd[k1-1]: =ar[i];     inc(k1);     end     else     begin     setlength(arnotodd,k2);     arnotodd[k2-1]: =ar[i];     inc(k2);     end;   end;   sort(arodd);   sort(arnotodd);   reverse(arnotodd);   k1: =0;   k2: =0;   i: =0;   while i< > n do   begin   inc(i);     if odd(i) then     begin       ar[i]: =arodd[k1];       inc(k1);     end     else     begin       ar[i]: =arnotodd[k2];       inc(k2);     end;   write(ar[i],' ');   end; end. пример ввода: 5 1 2 3 4 5 пример вывода: 1 4 3 2 5