Предмет: Информатика, автор: orion2701

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

Ответы

Автор ответа: Gleb1Kosyrev
0
//"Школьный" вариант, блок-схема во вложении
//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
Приложения:
Похожие вопросы
Предмет: Русский язык, автор: rfqhekkby
Перепишите текст 1, раскрывая скобки, вставляя, где это необходимо, пропущенные буквы и знаки препинания.

1 Как приятнее для путника в жаркий июльский (пол)день п.грузить ра(з/с)горячё(Н,нное лицо в пр..хладную струю деревенской реч..нки или

напится студёной воды из ключа б. щего в (не)глубоком но широком ущел..е. Подн..лись вы давно п..бродили в березн..ке ельнике и в гуще осиновых рощ на ходу старательно высматривая(3) цветы ягоды грибные шляпки и зап.лняя ими об..ёмистую свою к.рзину. (В)скоре плетёная корзина ваша (до)верху наполняет..ся(2) лесными дарами. (4) Вы (не)терпеливо шагаете у(з/с)кой межой (вдоль овся(Н,нн)ного поля с единств..нным желанием (поскорее добраться до спасительной реки. Вот она блещет (в)дали серебря (н, нн) ой полосой и манит своей пр. хладой. Какое блаженство искупаться думаете вы. (Вокруг бе(з/с)предельная сушь. Все дыш..т ра(з/с)калё(Н,нным зноем. Полуде (н, нн)ое сонце без/с)жалос..но печ..т темя. Ясное и спокойное оно равнодушно отражат (не)стерпимо знойные солнечные лучи. На небе н.. облачна.​
Предмет: Математика, автор: Анюндрик