Question

Mik đang cần gấp bài này mọi người giúp mik với ạ. Tối nay mik phải nộp rồi.

Answer 1

uses crt;

var st:string;

d,i,t,x,y,a,b:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do write(st[i]:4);

writeln;

t:=0;

for i:=1 to d do

begin

val(st[i],x,y);

t:=t+x;

end;

writeln(t);

val(st[d],a,b);

if (a mod 2=0) then write(1)

else write(-1);

readln;

end.