p>которая находит остаток от деления).

Задача 2.

Определить, попадает ли введенное число x в интервал [a, b], где числа a и b тоже задаются

пользователем.

Ответы:

1)uses crt,

var a:integer,

begin

readln(a),

if a mod 2=0 then writeln(четное) else writeln(нечетное),

end.

2)uses crt,

var x,a,b,i,k:integer,

begin

writeln(введите интервал),

read(a,b),

writeln(введите число),

readln(x),

for i:=a to b do

if i=x then inc(k),

if k=0 then writeln(нет) else writeln(да),

end.