Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Ngọc Thiên Trang

viết chương trình nhập vào một xâu ký tự bằng các con số. Hãy in ra mã khóa của xâu ký tự bằng cách tính tổng các chữ số trong xâu.

help me! giúp mk bài này vs ạ!

Nguyễn Tấn Tài
4 tháng 8 2017 lúc 15:04

PROGRAM In_Ma_Khoa;

USES crt;

VAR s:string;

Procedure Tong(x:string);

Var s2,i,s1,code:integer;

Begin

s2:=0;

for i:=1 to length(x) do

begin

val(x[i],s1,code);

s2:=s2+s1;

end;

write(s2);

End;

BEGIN

clrscr;

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

write('Ma khoa cua xau ki tu la:');

Tong(s);

readln;

END.

Nguyễn Nhật Nam
16 tháng 8 2017 lúc 14:25

TONGXAU
const
fi='tongxau.inp';
fo='tongxau.out';
var
f:text;
a:array[1..32000] of char;
t,s,so,nul,i,n:integer;
procedure inp;
begin
assign(f,fi);
reset(F);
n:=0;
while not(eof(f)) do
begin
inc(n);
read(f,a[n]);
end;
close(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
i:=1 ;
s:=0;
while i<=n do
begin
t:=0;

while a[i] in ['0'..'9'] do
begin
val(a[i],so,nul);
t:=t*10+so;
inc(i);
end;
s:=s+t ;
inc(i);
end;
write(f,s);
close(f);
end;
BEGIN
INP;
OUT;
END.


Các câu hỏi tương tự
PGD FF
Xem chi tiết
No_pvp
Xem chi tiết
No_pvp
Xem chi tiết
No_pvp
Xem chi tiết
PGD FF
Xem chi tiết
Phông
Xem chi tiết
Dragon
Xem chi tiết
No_pvp
Xem chi tiết
Lương Thị Lộc Bình
Xem chi tiết