Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может...

Question

Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может составьте блок схему алгоритма и программу ана алгоритмическом языке Паскаль

Answer 1

//"Школьный" вариант, блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111

Var
 s,n,i:integer;
begin
 readln(n);
 s:=0;
 for i:=1 to 3 do
  begin;
   s:=s+n mod 10;
   n:=n div 10;
  end;
 if s mod 2=0 then writeln('Yes') else writeln('No');
end.

Пример ввода:
123
Пример вывода:
Yes

---