Почему программа(паскаль) не выполняет первое условие if? program tn; var a: integer;...

Question

Почему программа(паскаль) не выполняет первое условие if?
program tn;
var a: integer;
begin
writeln ('Введи число');
read(a);
if ((a>=1000)and (a<100))then writeln ('Ошибка');<br> if (((a mod 10) + ((a div 10) mod 10) + a div 100 ) mod 2 = 0) then writeln ('Сумма цифр данного трехзначного числа-четное число')else writeln('Сумма-число нечетное');
end.

Answer 1

Т. к. а не может быть одновременно быть больше 1000 и меньше 100, никогда не выйдет 'Ошибка'

Comments

хорошо, а как тогда проверить является ли a трехзначным числом?

---

поставить or&

---

теперь он пишет ошибку и выполняет следующий if