Предмет: Информатика,
автор: 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
Приложения:
![](https://files.topotvet.com/i/5fc/5fc64232d9b9e437b6784b0d9083d5a7.png)
Похожие вопросы
Предмет: Русский язык,
автор: iyury29
Предмет: Алгебра,
автор: Cef1rka
Предмет: Русский язык,
автор: rfqhekkby
Предмет: Физика,
автор: Mariannaaaaa
Предмет: Математика,
автор: Анюндрик