Предмет: Информатика,
автор: orion2701
Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может составьте блок схему алгоритма и программу ана алгоритмическом языке Паскаль
Ответы
Автор ответа:
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
//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
Приложения:

Интересные вопросы
Предмет: Математика,
автор: kishmmishyan
Предмет: Русский язык,
автор: iyury29
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: НюшаСахалин
Предмет: Математика,
автор: Аноним