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