Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом. пример ввода: 567. пример вывода: сумма цифр числа 567-четное число

var  c,count: integer; begin  write('введите число ');   count : = 0;   readln(c);   while c < > 0 do  begin      if (c mod 3) = 0 then          inc(count);       write('введите число ');       readln(c);   end;   writeln('count = ',count);   readln; end.

 

 

 

 

//вторая программа

 

var  c, summ: integer; begin  write('c = ');   summ : = 0;   readln(c);   while c < > 0 do  begin      if (c mod 10) < 5 then          inc(summ, c mod 10);       c : = c div 10;   end;   writeln('summ = ',summ);   readln; end.

1)

program abc;

var num,count: integer;

 

begin

readln(num);

while num< > 0   do

begin

    if (num mod 3) = 3 then

          count: =count+1

end;

writeln(count)

end.

 

2)

program abc;

var num,sum: integer;

 

begin

readln(num);

while num< > 0   do

begin

    if (num mod 10) < 5 then

          sum: =sum+num mod 10;

    num: = num div 10

end;

writeln(sum)

end.