Дана последовательность чисел найти сумму чисел меньше 10 или больше 50 написать программу на языке паскаль информатика 9 класс

===== PascalABC.NET =====

begin

 var n := ReadInteger('Число членов последовательности:');

 var s := ReadSeqInteger('Вводите:', n)

     .Where(p -> (p < 10) or (p > 50)).Sum;

 Println('Сумма отобранных членов равна', s)

end.

var n, x, L, F, k, kint, max:integer;

begin

 kint := 0;

 max := 0;

 for n := 2095 to 19402 do begin

   x := n;

   k := 0;

   while x > 0 do begin

     k := k + 1;

     if k = 1 then

       L := x mod 10;

     F := x mod 10;

     x := x div 10;

   end;

   if (F > L)and(n mod 10 = 1)and((n div 10)mod 10 = 2)then begin

     kint := kint + 1;

     if n > max then

       max := n;

   end;

 end;

 writeln(kint,' ',max);

end.

Объяснение:

F - первая цифра числа

L - последняя(Слева направо)

код на Python:

import math

x1 = int(input("Введи координату x 1 точки "))

y1 = int(input("Введи координату y 1 точки "))

x2 = int(input("Введи координату x 2 точки "))

y2 = int(input("Введи координату y 2 точки "))

x3 = int(input("Введи координату x 3 точки "))

y3 = int(input("Введи координату y 3 точки "))

a = math.sqrt( pow(x2 - x1, 2) + pow(y2 - y1, 2) )

b = math.sqrt( pow(x3 - x2, 2) + pow(y3 - y2, 2) )

c = math.sqrt( pow(x3 - x1, 2) + pow(y3 - y1, 2) )

p = (a + b + c) / 2

S = math.sqrt( p*(p - a)*(p - b)*(p - c) )

print(S)

Объяснение:

x1,x2,x3,y1,y2,y3 - это координаты точек

a,b,c - вычисление длин между координатами

S - вычисление площади по формуле Герона