Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

(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 подшамань чуток, а так все правильно