Информатика

Лавра

27 июня, 10:16

Почему программа (паскаль) не выполняет первое условие if?

program tn;

var a: integer;

begin

writeln ('Введи число') ;

read (a) ;

if ((a>=1000) and (a<100)) then writeln ('Ошибка') ;

if (((a mod 10) + ((a div 10) mod 10) + a div 100) mod 2 = 0) then writeln ('Сумма цифр данного трехзначного числа-четное число') else writeln ('Сумма-число нечетное') ;

end.