Написать программу: Дано трехзначное число. Найти сумму цифр числа и определить является ли она четным числом.
Answers & Comments
pacixor
//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.
Answers & Comments
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.