подправил твою 1-ю программку. Тестил в ПаскальАБЦ но по идее работать должно в любом.
var
num : integer;
n1, n2, n3 : integer;
begin
write('введите 3-значное число: ');
readln(num);
n1 := (num div 100);
n2 := (num mod 100 div 10);
n3 := (num mod 10);
if (n1+n2+n3) mod 2 = 0
then writeln('четное')
else writeln('нечетное');
end.
хотя я эту программу сделал бы как нибудь так:
var
num : integer;
begin
write('введите 3-значное число: ');
readln(num);
if ((num div 100)+(num mod 100 div 10)+(num mod 10)) mod 2 = 0 then writeln('четное') else writeln('нечетное');
end.
на остальные программы сейчас времени нет... может если попозже...