Складіть проект для малювання 4 трикутників, розміщених поруч. Довжина сторони а (значення а вводиться з клавіатури), а довжина наступного на в кроків менша за довжину сторони попереднього. Спрайт рухаються з верхнього правого кута в нижній лівий. Колір олівця зелений, розмір олівця это в скретч 2 очень-очень надо можно скрин прислать того что сделаете если будете играться сниму ​

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

int main(){

   int arr[10],even[10], cur = 0, tmp;

   srand(time(0));

   puts("Source array:");

   for (int i = 0; i < 10; i++){   //генерация массива +

       arr[i] = rand() % 30;   //отбор четных элементов

       printf("%d\n", arr[i]);

       if (arr[i] % 2 == 0){

           even[cur] = arr[i];

           cur++;

       }

   }

   for (int i = 0; i < cur; i++)   //сортировка пузырьком по убыванию

       for(int j = 0; j < cur - i - 1; j++)

           if (even[j+1] > even [j]){

               tmp = even[j+1];

               even[j+1] = even[j];

               even[j] = tmp;

           }

   puts("Sorted array:");  //печать сортированного массива

   for (int i = 0; i < cur; i++)

       printf("%d\n", even[i]);

   return 0;

}

Объяснение:

Компилятор gcc 8.2.0

1 задача

var
X_1, Y_1, X_2, Y_2, AC, BC, AB:real;
begin
writeln('Введите значания X_1 (точки A)');
readln(X_1);
writeln('Введите значания Y_1 (точки A)');
readln(Y_1);
writeln('Введите значания X_2 (точки B)');
readln(X_2);
writeln('Введите значания Y_2 (точки B)');
readln(Y_2);
AC:=X_2-X_1;
BC:=Y_2-Y_1;
AB:=sqrt((AC*AC)+(BC*BC));
writeln('Длинна отрезка AB равна ', AB);
end.

2 задача

var
A, B, C, P, S:real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
writeln('Введите сторону C');
readln(C);
P:=(A+B+C)/2;
S:=sqrt(P*(P-A)*(P-B)*(P-C));
if(A+B<=C) or (A+C<=B) or (B+C<=A) then
writeln('Треугольник с такими сторонами не существует')
else
writeln ('Площадь треугольника по теореме Герона равна ', S);
end.