Написать программу: дано трехзначное число. найти сумму цифр числа и определить является ли она четным числом.

209

322

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

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

AyanCoolgirlBaku

Информатика

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

//pascal var a, sum: integer; begin write('введите число: '); readln(a); while a < > 0 do begin sum : = sum + (a mod 10); a : = a div 10; end; writeln('сумма цифр = ', sum); if sum mod 2 = 0 then writeln('сумма четная') else writeln('сумма нечетная') end.