Дано четырёхзначное число n. проверить,будет ли сумма его цифр чётным числом

227

399

Посмотреть ответы 2

Ответы на вопрос:

putinal

Информатика

4,4(98 оценок)

Var n: integer; begin write('введите четырёхзначное число '); readln(n); if ((n> 999) and (n< 10000)) or ((n> -10000) and (n< -999)) then begin write('сумма цифр числа ',n); if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then write(' чётна') else write(' не чётна'); end else write('число ',n,' не четырёхзначное. перезапустите программу'); end.

g3force

Информатика

4,6(23 оценок)

Var n,i: integer; s: string; begin readln(s); n: =length(s); i: =n; while s[i]< > ' ' do dec(i); if i> 0 then begin delete(s,i,n-i+1); writeln(s) end; end.