1. Определите, каким числом является введённое число – чётным
или нечётным.

2. Напишите программу, которая в
зависимости от введённого числа либо вычисляет функцию, либо выдает сообщение,
что функция не определена:
[tex]y = 1/x[/tex]
3. Проверьте, является ли данное четырёхзначное число
палиндромом. Палиндромом называется число, которое читается слева направо также
как справа налево.


4. Вычислите значение следующей функции:

1.var n:integer;beginreadln(n);if n mod 2 = 0 thenwriteln('Четное')elsewriteln('Ну четное');end.2.var n:integer;beginreadln(n);if n<>0 thenwriteln('y=',1/n)elsewriteln('функция не определена');end.3.var numb,ts,sot,des,ed:integer;beginreadln(numb);ts:=numb div 1000;sot:= numb div 100;sot:= sot mod 10;des:=numb mod 100;des:=des div 10;ed:=numb mod 10;if (ed*1000+des*100+sot*10+ts) = numb thenwriteln('палиндром');end.4.var x:real;beginreadln(x);if x>=2 thenwriteln(x)elsewriteln(sqr(x)-3);end.