1. Создайте таблицу следующего вида, сохраняя установки по форматированию. Рассчитайте данные в последнем столбце по формуле и Итого. Использовать относительную адресацию (Задание на скрине)

Объяснение:

Смотри в файлах

смотри блок-схему в приложенном файле

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.