Question

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

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


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

Answer 1

1.
var n:integer;
begin
readln(n);
if n mod 2 = 0 then
writeln('Четное')
else
writeln('Ну четное');
end.
2.
var n:integer;
begin
readln(n);
if n<>0 then
writeln('y=',1/n)
else
writeln('функция не определена');
end.
3.
var numb,ts,sot,des,ed:integer;
begin
readln(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 then
writeln('палиндром');
end.
4.
var x:real;
begin
readln(x);
if x>=2 then
writeln(x)
else
writeln(sqr(x)-3);
end.

Answer 2

спасибо огромное!!)

Answer 3

агась :ь обращайся)