ТЕРМІНОВО БУДЬ ЛАСКА! 100 БАЛІВ
Запишіть фрагменти програм мовами програмування Free Pascal та
Python для виконання таких дій:
1) друкується таблиця множення на 9;
2)друкуються квадрати чисел від 10 до 1;
3) знаходиться сума цілих чисел від 1 до 10;
4) обчислюється добуток парних чисел першого десятка;
5) обчислюється сума дробів з чисельником 1, знаменниками яких є непарні
числа від 3 до 9;
6) визначається кількість введених речень (речення закінчується крапкою, знаком оклику чи знаком питання).

а) является носителем информации.

б) круглый.

var a,b,c: integer;

begin

clrscr;

readln(a,b,c);

          if a = b then writeln(c);

          if b = c then writeln(a);

          if a = c then writeln(b);

readkey;

end. 

var x,y,x1,y1,x2,y2: integer;

begin

  read(x,y,x1,y1,x2,y2);

  if (x< x1) and (x> x2) and (y< y1) and (y> y2) then

      writeln('da')

  else writeln('net');

end.

добавить ввод номера столбца.

строку if (j = 2) and (a[i, j] > 10) then заменить

на if (j = m) and (a[i, j] > 10) then  где m- введенный номер столбца.