Напишите программу на языке делфи длина выражена в сантиметрах. выразить ее в дюймах. (1 дюйм=2.5 см)

Program dujm var a,res: real; begin writeln('vvedite dlinu v sm'); readln(a); res: =a/2.5; writeln(a,' sm v dujmah ravno ',res: 5: 2); readln; end.

#include < iostream>

 

using namespace std;

 

int main()

{

    int *arr; // указатель для выделения памяти под массив

    int size; // размер массива

   

    // ввод количества элементов массива

    cout < < "n = ";

    cin > > size;

 

    if (size < = 0) {

        // размер масива должен быть положитлеьным

        cerr < < "invalid size" < < endl;

        return 1;

    }

 

    arr = new int[size]; // выделение памяти под массив

 

    // заполнение массива

    for (int i = 0; i < size; i++) {

        cout < < "arr[" < < i < < "] = ";

        cin > > arr[i];

    }

 

    int temp; // временная переменная для обмена элементов местами

 

    // сортировка массива пузырьком

    for (int i = 0; i < size - 1; i++) {

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

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

                // меняем элементы местами

                temp = arr[j];

                arr[j] = arr[j + 1];

                arr[j + 1] = temp;

            }

        }

    }

 

    // вывод отсортированного массива на экран

    for (int i = 0; i < size; i++) {

        cout < < arr[i] < < " ";

    }

    cout < < endl;

 

    delete [] arr; // освобождение памяти;

   

    return 0;

}

радиус описанной вокруг правильного n-угольника окружности находится по формуле:

собственно программа:

var

    n : integer; // количество сторон (углов)

    a : integer; // длина стороны

   

begin

    write('введите количество сторон n= ');

    readln(n);

    write('введите длину стороны a= ');

    readln(a);

    writeln('радиус описанной окружности r=', a/2*sin(180/n));

end.