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

Question

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

2. Напишите программу, которая в
зависимости от введённого числа либо вычисляет функцию, либо выдает сообщение,
что функция не определена:

3. Проверьте, является ли данное четырёхзначное число
палиндромом. Палиндромом называется число, которое читается слева направо также
как справа налево.


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

---

Comments

2 задание расплывчатое

---

остальное - сделаю)

---

2 задание это то

---

которое 4?)

---

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

---

ну, функция у = один деленное на х

---

что означает " в зависимости от введенного числа" ? какое условие то?)

---

я скинула все,как написано в задание)

---

*задании

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.

Comments

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

---

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