!ДАЮ 50 БАЛЛОВ! 2.1. Определите, значение какой функции вычисляет написанная программа? Оформить таблицу вычислений № x y 1 -2 2 0 3 6 program Virajenie; uses crt; var x,y:real; begin clrscr; write('Значение x='); readln(x); if (x<0) then y:=-x else y:=x+2; writeln('При x=',x:8:2,' y=',y:8:2); readkey end. 2.2. (БИД) Попробуйте сформулировать, что определяет данная программа. Оформить таблицу вычислений № Первое число Второе число Вывод 1 2 8 2 11 7 3 25 25 program Sravnenie; uses crt; var a,b:real; Begin clrscr; write('Сравниваемые числа '); readln(a,b); if (a=b) then writeln('Числа равны') else if (a>b) then writeln('Первое число больше') else writeln('Второе число больше'); readkey end. 2.3. Вычислить значение выражения …………. для заданного значения x. Оформить таблицу вычислений (пользуясь программой, данной ниже, заполните пропуски в условии задачи и таблице) № x ? 1 -3 2 0 3 5 program Virajenie; uses crt; var x,y:real; begin clrscr; write('Значение x='); readln(x); if (x=0) then writeln('При x=',x:8:2,' выражение не определено') else begin y:=x+1/x; writeln('При x=',x:8:2,' y=',y:8:2) end; readkey end. Записать программы 2.4 Проверить, является ли введенное с клавиатуры целое число четным. 2.5 Проверить оканчивается ли целое число на 0.