Составьте программу, проверяющую, верно ли утверждение, что сумма цифр, введенного вами числа, является четным

Var a , b ,c: integer; begin writeln('введите первое  число: '); readln(a); writeln('введите второе число: '); readln(b); c: =a+b; if (c mod 2)=0 then writeln( 'сумма чисел четное') else writln('сумма чисел  нечетное'); end.

Program chet; var     sum: integer;     a,b: integer; begin writeln('введите число a: '); readln(a); writeln('введите число b: '); readln(b); sum: =a+b; if (sum mod 2=0) then writeln('чётное') else writeln('не чётное'); end.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

 

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

 

 

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой