Информатика, опубликовано 2018-08-22 20:54:01 by Гость
Составьте программу, печатающую значение TRUE,если указанное высказывание является истинным, и FALSE в противном случае: сумма цифр данного трехзначного числа N является четным числомПРОШУУ ПОМОГИТЕ ПОЖАЛУЙСТА(((РЕШАТЬ НА ПАСКАЛЕ..
Ответ оставил Гость
Var a,n: integer;
begin
a:=0;
readln(n);
while n0 do
begin
a:=a+(n mod 10);
n:=n div 10;
end;
if a mod 2=0
then
writeln(Сумма цифр числа - четная)
else
writeln(Сумма цифр числа - нечетная);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на