Назовите тип каждой переменной описанной в программе p18 program p18 type litere = ( a, b, c, d, e, f, g); var x : litere; y: char ; i : integer ; begin x; = a; i : = ord (x); writeln ( i) ; y : = ' a' ; i: ord (y); writeln (i) ; end.

В этой программе создан новый тип для А, В...
стандартный символьный тип для у, т.е. для одного какого-то символа
целочисленный в пределах -32 тыс.  + 32 тыс.

#include <stdio.h>

#include <stdlib.h>

int main()

{

   // y = 1 - x + x * x / 2 + 5x

   // -5 < x < 6

   // Считываем x:

   float x;

   printf("Enter x: ");

   scanf("%f", &x);

   // Проверяем условие с цикла while:

   // PS: для извращенцев.

   int i = 0;

   while (i == 0)

   {

       if (-5 >= x)

       {

           return EXIT_FAILURE;

       }

       if (x >= 6)

       {

           return EXIT_FAILURE;

       }

       i = 1;

   }

   // Решаем уравнение:

   float y = 1 - x + x * x / 2 + 5 * x;

   // Выводим результат:

   printf("Result y = %f\n", y);

}

#include <stdio.h>

#include <stdlib.h>

int main()

{

   // y = 1 - x + x * x / 2 + 5x

   // -5 < x < 6

   // Считываем x:

   float x;

   printf("Enter x: ");

   scanf("%f", &x);

   // Проверяем условие с цикла while:

   // PS: для извращенцев.

   int i = 0;

   while (i == 0)

   {

       if (-5 >= x)

       {

           return EXIT_FAILURE;

       }

       if (x >= 6)

       {

           return EXIT_FAILURE;

       }

       i = 1;

   }

   // Решаем уравнение:

   float y = 1 - x + x * x / 2 + 5 * x;

   // Выводим результат:

   printf("Result y = %f\n", y);

}