Информатика, опубликовано 2018-08-22 21:02:49 by Гость
Составьте программу проверяющую верно ли что сумма цифр введенного целого 3х значного числа является нечетным паскаль
Ответ оставил Гость
Var
a,sum:integer;
begin
readln(a);
sum:= a div 100 + a div 10 mod 10 + a mod 10;
if (sum mod 2 = 0) then
writeln(Сумма чисел: ,sum, Число является четным.)
else
writeln(Сумма чисел: ,sum, Число не является четным.);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на