Question

Даю 100 баллов,если решите 4.13-4.15 с полным решением!

Answer 1

(4,13)
var n:integer;
begin
Writeln('Vvedite chislo');
readln(n);
if (n>=100) and (n<1000) then
Begin
Writeln('Yavlyaetsya');
end
else
writeln('Ne Yavlyaetsya');
readln;
end.

(4,15)
var number : integer ;
begin
write('Vvedite chislo  ');
readln(number);
if number mod 2  = 0 then         
writeln('Chislo chetnoe')
else writeln('Chislo ne chetnoe');
readln;
end.

(4.14)
var
a,x,b:real;
begin
writeln('vvedite koordinatu x :');
readln(x);
writeln('vvedite a :');
readln(a);
writeln('vvedite b :');
readln(b);
if a>b then if (x<=a)and(x>=b)then 
writeln('Yes') 
else 
writeln('No') 
else
if (x<=b)and(x>=a) then
writeln('Yes')
else
writeln('No');
end.

Если что, 14 подшамань чуток, а так все правильно