Решите задачу дано двузначное число n является ли сумма цифр Этого числа чётной (нечётной). уточните
Если сумма нечетного в ответе Запишите 1 если четное 0
Если сумма нечетного в ответе Запишите 1 если четное 0
More Questions From This User See All
Answers & Comments
Ответ:
Решение на языке 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.
Объяснение:
вроде как-то так ;-;