Напишите программу на паскале определения суммы цифр числа. укажите является ли полученный результат четным числом.

var

  a, c : integer;

begin

  read (a);

  c : = 0;

  while a > 0 do

  begin

    c : = c + a mod 10;

    a : = a div 10;

  end;

  writeln (c);

  if c mod 2 = 0 then write ('четное') else write ('нечетное');

end.

 

Program myproject; {$apptype console} const   n=10; var   a: array[1..10] of int64;   i,ip: integer;   p: int64; begin   randomize;   p: =1; ip: =0;   for i: =1 to n do begin       a[i]: =random(101)-50;       write(a[i],' ');       if a[i]< 0 then p: =p*a[i]       else           if (a[i]> 0) and (ip=0) then ip: =i       end;   writeln;   if i> 0 then begin       a[ip]: =p;       for i: =1 to n do write(a[i],' ');       writeln       end   else writeln('нет положительных элементов') end.

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',99); a.println;   var a0: =a[0];   var b: =a[1: ].where(x-> x mod a0=0).toarray;   if b.length> 0 then b.println   else writeln('нет элементов, кратных первому'); end. пример n= 16 -11 85 11 -9 -24 32 6 42 -92 -69 -87 2 -11 -77 -94 66 11 -11 -77 66 замечание. если первый элемент тоже нужно включить в результирующий массив, нужно записать так: var b: =where(x-> x mod a0=0).toarray;