Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может составьте блок схему алгоритма и программу ана алгоритмическом языке Паскаль
//"Школьный" вариант, блок-схема во вложении
//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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
