Предмет: Информатика,
автор: 59182eva
Решите задачу дано двузначное число n является ли сумма цифр Этого числа чётной (нечётной). уточните
Если сумма нечетного в ответе Запишите 1 если четное 0
Ответы
Автор ответа:
8
Ответ:
Решение на языке Pascal
program pr;
var n,a,b,c, sum:integer;
begin
readln (n);
a:=n div 100;
b:=n mod 100 div 10
c:=n mod 10
sum:=a+b+c;
if sum mod 2 = 0 then writeln ('Сумма цифр четная') else writeln('Сумма цифр четная');
readln;
end.
Объяснение:
вроде как-то так ;-;
Похожие вопросы
Предмет: Английский язык,
автор: kuceinik
Предмет: Русский язык,
автор: snejok2005
Предмет: Українська література,
автор: dgynik
Предмет: Математика,
автор: санди16
Предмет: Геометрия,
автор: thetema567