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

Question

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

---

Comments

На чем писать?

---

Я решил, где обещанные 100 балов?

Answer 1

Program s;
4.13
Var n:integer;
begin
Writeln('Введите число');
readln(n);
if (n>=100) and (n<1000) then <br>Writeln('Число является трёхзначным')
else
Writeln('Число не является трёхзначным');
end.

4.15
Program s;
Var n:integer;
begin
Writeln('Введите число');
Readln(n);
if n mod 2=0 then
Writeln('Число четное')
else 
writeln('Число не четное');
end.