СРОЧНООООООО СЧЕТ ** МИНУТЫ! с клавиатуры вводятся числа. конец ввода 0. определите...

Question

СРОЧНООООООО
СЧЕТ НА МИНУТЫ!
с клавиатуры вводятся числа. конец ввода 0. определите количество двузначных чисел, сумма цифр которых четная

Answer 1

Var
  n, sum :integer;

begin

  readln(n);
  sum:= (n div 10) + (n mod 10);
  write(sum,' - ');
  if sum mod 2 = 0 then
    write('четная')
  else
    write('нечетная');

end.

Comments

А как блок-схему составить?

---

Ничего просто не понимаю в информатике