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