Всем привет! Кому не тяжело, необходимо выполнить данные программки в Паскаль

подправил твою 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.

на другие программки на данный момент медли нет... может если попозже...