Nhờ mn giải giúp e 2 bài này vs ạ:
Bài 1: Viết chương trình nhập vào một xâu s1. Tạo xâu s2 gồm tất cả các kí tự trong xâu s loại trừ các kí tự là chữ số.
Bài 2: Thông tin vể sách trong thư viện gồm: mã sách, tên sách, số trang, tác giả. Hãy viết chương trình thực hiện các công việc sau:
a) Nhập vào thông tin của 50 cuốn sách từ bàn phím.
b) Đưa ra màn hình tổng số trang của 50 cuốn sách đó.
Bài 1:
program bai1;
uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
readln(s1);
for i:=1 to length(s1) do
begin
if not((s1[i]>=’0′) and (s1[i]<=’9′)) then s2:=s2+s1[i];
end;
writeln(s2);
readln;
end.
bài 2:
program bai2;
uses crt;
var ma,ten,tg:string;
i:byte;
trang:word;
tongsotrang:longword;
begin
clrscr;
for i:=1 to 50 do
begin
readln(ma);
readln(ten);
readln(trang);
readln(tg);
tongsotrang:=tongsotrang+trang;
end;
writeln(tongsotrang);
readln;
end.