Из числа и месяца своего рождения составьте трехзначное число следующим образом: если день в дате рождения-число от 1 до 9, то к цифре из обозначения дня припишите две цифры месяца(например, для даты 02.03.93 искомое число 203)еслидень в дате рождения-число от 10 до 31, то к двум цифрам из обозначения дня припишите вторую цифру из обозначения месяца(например, для даты 23.11.93 искомое число 231) моя дата рождения 30.05.95

рождения 30.05.95

300

 

Если у нас есть координаты этих вершин на плоскости вида (x; y),  то a(x1,y1) b(x2,y2) c(x3,y3) program q; var x1,x2,y1,y2,x3,y3: integer; ab,ac,alp,bet,alfa,s: real; begin write('введите координаты точки a: '); read(x1); readln(y1); write('введите координаты точки b: '); read(x2); readln(y2); write('введите координаты точки c: '); read(x3); readln(y3); ab: =sqrt(sqr(x2-x1)+sqr(y2-y1)); ac: =sqrt(sqr(x3-x1)+sqr(y3-y1)); alp: =arctan((y2-y1)/(x2-x1)); bet: =arctan((y3-y1)/(x3-x1)); alfa: =bet*2-alp; s: =sin(alfa)*(ab*ac)/2; writeln('площадь треугольника=',s); readln end.

(я так понял масив(матрица) "состоящая из 5 строк и 10 столбцов заполненная случайными числами в диапазоне от 0 до 29" вводитса з клавиатуры) (я на паскале на ошибки не проверял)

program dl9_aridrettnir;

var a: array [1..10,1..5] of inteher;

sum: array [1..10] of integer;

i,q,j: integer;  

begin

writeln ('vvedit masiv ot 0 do 29');

for i: =1 to 10 do

begin

for q: =1 to 5 do begin

readln (a[i,q]);

end; end;

for i: =1 to 10 do

begin sum[i]: =0;

for q: =1 to 5 do begin

for j: =1 to 10 do begin 

sum[i]: =a[q,j]+sum[i];

end; end; end;

readln

end.