Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.
Program Sequence;
var old, new : real;
f : boolean;
begin
Задача 1:
Dim angle_one, angle_two, angle_three As Integer
Console.Write("Введите первый угол треугольника: ")
angle_one = Console.ReadLine
Console.Write("Введите второй угол треугольника: ")
angle_two = Console.ReadLine
angle_three = 180 - angle_one - angle_two
If angle_one = 90 Or angle_two = 90 Or angle_three = 90 Then Console.WriteLine("Треугольник прямоугольный.")
If angle_one > 90 Or angle_two > 90 Or angle_three > 90 Then Console.WriteLine("Треугольник тупоугольный.")
If angle_one < 90 And angle_two < 90 And angle_three < 90 Then Console.WriteLine("Треугольник остроугольный.")
Console.ReadKey()
Задача 2:
Dim n, sum As Integer
n = Console.ReadLine
For i = 1 To n
sum += i ^ 2
Next
Console.WriteLine("Сумма квадратов от 1 до " & n & " равна " & sum)
Console.ReadKey()
#include <iostream>
using namespace std;
int main()
{
int size;
cin >> size;
int *a = new int[size];
for (int i = 0; i < size; i++)
{
cin >> a[i];
}
for (int i = 0; i < size; i++)
{
for (int j = size - 1; j > i; j--)
{
if (a[j] < a[j - 1])
{
swap (a[j], a[j - 1]);
}
}
}
for (int i = 0; i < size; i++)
{
cout << a[i] << ' ';
}
return 0;
}