Меню сайта

Задача №8

Дано натуральное число n. Верно ли, что сумма цифр этого числа является нечётной.


Program for_8-

uses crt-

var a : string-

t,er,n,i,s : integer-

begin

clrscr-

write(‘введите число ‘)-readln(a)-

s:=0-

for i:=1 to length(a) do

begin

val(a[i],t,er)-

s:=s+t-

end-

if s mod 2&lt-&gt-0

then write(‘сумма являетсяся нечётной’)

else write(‘сумма является чётной’)-

readln-

end.

Категория: Циклы | Дата: 07.11.12

Меню раздела
Блок