Придумать свою цепочку рассуждений оканчивающуюся на 5

35-30-25-20-15-10-5. - табл умножения

1-2-3-4-5. - счет от единицы

 

Const n=3; var  i, j, s, k: integer;   sa: real;   a: array [1..n, 1..n] of integer; begin  writeln('ввод элементов матрицы');   for i : = 1 to n do    for j : = 1 to n do    begin      write('a[', i, ',', j, ']=');       readln(a[i, j]);     end;   s : = 0; k : = 0;   for i : = 1 to n do    for j : = 1 to 1 do    begin      s : = s + a[i, j];       k : = k + 1;     end;   sa : = s / k;   writeln('среднее арифметическое элементов матрицы = ', sa: 2: 2); end.

1) program task1; var x,y,xq,yq,sum,pro,cha,raz: integer; begin write('введите числа: '); readln(x,y); xq: =sqr(x); yq: =sqr(y); sum: =xq+yq; raz: =xq-yq; pro: =xq*yq; cha: =xq/yq; write('сумма=',sum,'; разность=',raz,'; частное=',cha,'; произведение=',pro); end. 2) program task2; var a,r,rr,h,s: real; begin   write('введите длину стороны треугольника: ');   readln(a);   r : = sqrt(3) * a / 6;   rr : = 2 * r;   h : = 3 * r;   s : = a * h / 2;   writeln('радиус вписанной окружности ', r: : 2);   writeln('радиус описанной окружности ', rr: : 2);   writeln('высота треугольника ', h: : 2);   writeln('площадь треугольника ', s: : 2); end.