Question

1.Напишите программу для решения следующей задачи:
Дано целое число. Является ли оно четным?
2.Составьте программу вычисления у по задачному х.

Answer 1

1.

var
a: integer;
begin
writeln('Введите число');
readln(a);
if a mod 2=0 then writeln('Чётное') else writeln('Нечётное');
 end.


2.
 

var
x:integer;
y:real;
begin
y:=0;
writeln('Введите x: ');
readln(x);
if (x>0) then y:= x;
if (x < 0) or (x = 0) then y:= 1/x;
writeln('y = ', y);
end.