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