Помогите написать код На Pascal
Написать функцию одного целого
аргумента с целочисленным ответом, которая посчитает сумму четных цифр
в целом числе, применить её: ввести в программе два числа и вывести
для каждого значение функции.
uses crt;
var a, b: int64;
function sum(x: int64): integer;
var digit: integer;
begin
sum := 0;
if x < 0 then x := -x;
while x > 0 do
begin
digit := x mod 10;
if digit mod 2 = 0
then sum := sum + digit;
x := x div 10
end
end;
begin
textbackground(white);
textcolor(magenta);
clrscr();
write('a b: ');
readln(a, b);
writeln(sum(a), ' ', sum(b))
end.
примени
uses crt;
var x,sum,n: integer;
begin
clrscr;
write('ввести число --> ');readln(n);
sum := 0;
while n<>0 do
begin
sum:=sum + n mod 10;
n := n div 10;
end;
write('Сумма цифр = ',sum);
readln;
end.
Вот :
