Текст программы. write(‘Введите значение x=')

program zadacha2v1;

uses crt;

var

x:real;

begin

write(‘Введите значение x=');

readln(x);

if (x-2<0) or (10-x<0) or (4*sqrt(10-x)+x-13=0) then

writeln('Выражение не имеет смысла’)

else

if (abs(x-4)-sqrt(x-2))/(4*sqrt(10-x)+x-13)>=0 then

writeln('Неравенство выполняется’)

else

writeln('Неравенство не выполняется);

textcolor(20);

writeln;writeln;

Writeln('Разработал Иванов И.И.':50);

readln;

end.

Протокол выполнения

Задача № 4(циклический алгоритм)

Постановка задачи Составить программу вычислений значений функции y, заданной формулой

отрезке [-10, 10] с шагом h=1.

Блок-схема