Fasm
org 100h
mov si, string
cld
my_loop:
lodsb
cmp al, 0
jz loop_exit
cmp al, '0'
jb my_loop
cmp al, '9'
ja my_loop
sub al, '0'
add bx, ax
jmp my_loop
loop_exit:
push -1
mov ax, bx
loop_push:
xor dx, dx
div [d]
push dx
cmp ax, 0
jne loop_push
mov ah, 2h
print:
pop dx
cmp dx, -1
je exit
add dl, '0'
int 21h
jmp print
exit:
mov ah, 01h
int 21h
ret
d dw 10
string db "1", 0
FPC
var
s : string;
i, c : integer;
begin
readln (s);
c := 0;
for i := 1 to length (s) do
if (s[i] in ['0'..'9']) then inc (c, ord (s[i]) - ord ('0'));
writeln (c);
end.
i, c, s: integer;
a: array[1..8]of integer;
begin
s := 0;
c := 0;
for i := 1 to 8 do
begin
a[i] := random(1, 10);
write(a[i], ' ');
if(a[i] mod 2 = 0) then c := c + 1
else s := s + a[i];
end;
writeln;
writeln('Количество элементов с четными значениями: ', c);
write('Сумма элементов массива с нечетными значениями: ', s);
end.