Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Проверить сумму цифр числа на нечетность

Задача. Дано натуральное число n. Верно ли, что сумма цифр этого числа является нечётной.
Решение.
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<>0 остаток от деления
 then write('сумма яв-ся нечётной')
 else write('сумма яв-ся чётной');
 readln;
end.
 Похожие публикации: Pascal

Войдите, чтобы добавить Ваш ответ. [ Регистрация | Вход ]