Mật khẩu để mở khóa phần mềm là một dãy gồm 6 kí tự số trong hệ thập phân. Nhà sản xuất đã mã hóa mật khẩu đó thành một xâu kí tự s gồm các kí tự trong bảng mã

Question

Mật khẩu để mở khóa phần mềm là một dãy gồm 6 kí tự số trong hệ thập phân. Nhà sản xuất đã mã hóa mật khẩu đó thành một xâu kí tự s gồm các kí tự trong bảng mã ASCII. Để xác định mật khẩu này, ta tính tổng các chữ số trong xâu s, nếu tổng này chưa đủ 6 chữ số thì thêm các số 0 vào phía bên trái tổng đó sao cho đủ 6 kí tự.
Yêu cầu: Cho xâu chứa mật khẩu s, hãy xác định mật khẩu tìm được từ trong xâu s.
Dữ liệu vào: Đọc từ tệp văn bản CAU2.INP ghi xâu kí tự s.
Kết quả: Ghi ra tệp văn bản CAU2.OUT mật khẩu tìm được.
Ví dụ:		
CAU2.INP
Tin hoc 2019-2020
CAU2.OUT
000016

shamsiel · Answer

uses crt;var S : string;    i, X, M : longint;    fi, fo : text;    begin    clrscr;    assign(fi, 'CAU2.INP'); reset(fi);    assign(fo, 'CAU2.OUT'); rewrite(fo);    readln(fi, S);        X := 0;    for i := 1 to length(S) do         if S[i] in ['1' .. '9'] then            begin                val(S[i], M);                X := X + M;            end;                str(X, S);    while length(S)         write(fo, S);    close(fi); close(fo);end.

khoadang09 · Answer

const fi = 'CAU2.INP';
fo = 'CAU2.OUT';
var s, kq, chen : string ;
sum , i, tg : longint ;
f1, f2 : text ;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
sum := 0 ;
for i := 1 to length(s) do
begin
val(s[i],tg);
sum := sum + tg ;
end ;
str(sum,kq);
while length(kq) < 6 do kq := '0'+ kq;
write(f2,kq);
close(f1);close(f2);
end .

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 7 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bạn muốn hỏi điều gì?

Tìm kiếm với hình ảnh

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Lưu vào

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 7 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bạn muốn hỏi điều gì?

Lý do báo cáo vi phạm?