надо не пойму как решить дана последовательность действительных чисел a1, a2, an. выяснить, будет ли она возрастающей. в программе кумир кто знает пож, буду !

👇

Увидеть ответ

Ответ:

katenabulasheva

10.08.2020

Последовательность называется возрастающей,если у1<у2<у3

4,7(7 оценок)

Открыть все ответы

Ответ:

DedMazaj

10.08.2020

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!

begin
Writeln(' x   x^2    x^3');
for var i:=1 to 50 do Writeln(i:3,i*i:5,i*i*i:8);
end.

Результат
x   x^2    x^3
1    1       1
2    4       8
3    9      27
4   16      64
5   25     125
6   36     216
7   49     343
8   64     512
9   81     729
10 100    1000
11 121    1331
12 144    1728
13 169    2197
14 196    2744
15 225    3375
16 256    4096
17 289    4913
18 324    5832
19 361    6859
20 400    8000
21 441    9261
22 484   10648
23 529   12167
24 576   13824
25 625   15625
26 676   17576
27 729   19683
28 784   21952
29 841   24389
30 900   27000
31 961   29791
32 1024   32768
33 1089   35937
34 1156   39304
35 1225   42875
36 1296   46656
37 1369   50653
38 1444   54872
39 1521   59319
40 1600   64000
41 1681   68921
42 1764   74088
43 1849   79507
44 1936   85184
45 2025   91125
46 2116   97336
47 2209 103823
48 2304 110592
49 2401 117649
50 2500 125000

4,6(28 оценок)

Ответ:

Alphons145

10.08.2020

Var
    a, b, c, p: real;
    a1, b1, c1: real;
    a2, b2, c2: real;

function SideLength(a1, a2, b1, b2: real): real;
begin
    SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2));
end;

begin
    writeln('1.Найти сумму трех чисел');
    readln(a, b, c);
    writeln(a + b + c);

    writeln('2.Катеты прямоугольного треугольника известны.Найти гипотенузу.');
    readln(a, b);
    writeln(sqrt(a * a + b * b));

    writeln('3.Найти среднеарифметическое двух чисел.');
    readln(a, b);
    writeln((a + b) / 2);

    writeln('4.Найти длину окружности,если известна площадь круга.');
    readln(a);
    writeln(sqrt(a / pi) * 2 * pi);

    writeln('5.Какой процент составляет число а от числа b.');
    readln(a, b);
    writeln(a / b * 100);

    writeln('6.Найдите площадь треугольника с формулы Герона.');
    readln(a, b, c);
    p := (a + b + c) / 2;
    writeln(sqrt((p - a) * (p - b) * (p - c) * p));

    writeln('7.Найдите площадь кольца,если его толщина I см,диаметр внутри круга d см.');
    readln(a, b);
    c := a + b;
    writeln(pi * (c * c - b * b));

    writeln('8.Вычислите площадь треугольника заданного координатами вершин.');
    readln(a1, a2, b1, b2, c1, c2);
    writeln(((a1 - c1) * (b2 - c2) - (a2 - c2) * (b1 - c1)) / 2);

    writeln('9.Вычислить длинны сторон треугольника по заданным координатам его вершин.');
    a := SideLength(a1, a2, b1, b2);
    b := SideLength(c1, c2, b1, b2);
    c := SideLength(a1, a2, c1, c2);
    writeln(a, ' ', b, ' ', c);
end.

4,4(90 оценок)

Это интересно:

Хобби-и-рукоделие

04.09.2020

Как сделать фетровую шляпу: пошаговая инструкция с фото...

Хобби-и-рукоделие

01.08.2021

Как найти изображения на компьютере: советы и рекомендации...

Кулинария-и-гостеприимство

23.07.2022

Как приготовить бисквитный торт: простое рецепт и советы на все случаи жизни...

Компьютеры-и-электроника