Chương trình con và lập trình có cấu trúc

Kim Thoa

Việc bảo vệ máy tính để hạn chế người khác thâm nhập là một vấn đề đặt ra cho mọi nguời sử dụng máy tính. Để tăng tính an toàn trong lưu trữ, một nguời đã quyết định giấu mật khẩu truy cập máy tính của mình vào một xâu S với một qui ước sao cho khi cần anh ta có thể lấy lại được mật khẩu từ S. Là một người yêu thích số học anh ta chọn mật khẩu P là một số tự nhiên và mã hóa P = P1 + P2 + … +Pi với (Pi là số nguyên, 0<=Pi<=9, 0<i<200) đem dấu các số Pi vào một xâu ký tự S.

Chẳng hạn xâu S=’mat #223 ma 678 @’ chứa mật khẩu là 28 vì P=2+2+3+6+7+8

Yêu cầu: Cho một xâu ký tự S chiều dài không quá 255 ký tự. Viết chương trình tìm mật khẩu P đã dấu trong xâu S biết P có giá trị nhỏ hơn 10­00.

Ví dụ:

Nhập từ bàn phím

Kết quả

Nhap xau S: thihoc5sinhgioi3huyen65

P = 19

Nguyễn Lê Phước Thịnh
9 tháng 11 2020 lúc 20:17

uses crt;

var s:string;

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

begin

clrscr;

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

d:=length(s);

t:=0;

for i:=1 to d do

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

begin

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

t:=t+x;

end;

writeln('Mat khau la: ',t);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
0o0 Nhok kawaii 0o0
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết
09 Lê Quang HIếu
Xem chi tiết
Ha Ha
Xem chi tiết
CHANNANGAMI
Xem chi tiết
Ngọc
Xem chi tiết
Nguyễn Hữu Nam
Xem chi tiết
Mạnh Cường Đào Huỳnh
Xem chi tiết
Katty Phươngg
Xem chi tiết
Nguyễn Phạm Thanh Hằng
Xem chi tiết