Question

Viết chương trình nhập vào 1 xâu, hãy cho biết tổng của các số trong xâu. (Pascal )

VD: Nhập s: 123yuo@hg5

In ra:11

Answer 1

Program hotrotinhoc;

var s: string;

t,c,i: byte;

begin

write('Nhap s:'); readln(s);

t:=0;

for i:=1 to length(s) do

if s[i] in ['1'..'9'] then

begin

val(s[i],c);

t:=t+c;

end;

write(t);

readln

end.

Answer 2

uses crt;
var st:string;
i,d,dem,t,x:integer;
a:array[1..255]of integer;
begin
clrscr;
write('st=');readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then
begin
inc(dem);
val(st[i],a[dem],x);
end;
t:=0;
for i:=1 to dem do
t:=t+a[i];
writeln('tong cac chu so trong xau la: ',t);
readln;
end.

Answer 3

Bạn cho facebook không, để mình gửi bài này cho

Answer 4

dễ mà bạn!

Answer 5

Bạn có facebook không? Mình gửi bài này cho

Answer 6

var s:string;
n,i,code:integer;
t:longint;
begin
write('Nhap xau ');
readln(s);
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then begin val(s[i],n,code);
t:=t+n; end;
write('Tong cac so trong xau ',t);
end.