Viết chương trình xóa hết chữ số trong xâu

1.2 K

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Viết chương trình xóa hết chữ số trong xâu

Câu 45: Viết chương trình xóa hết chữ số trong xâu?

Lời giải:

Program Xoa_chu_so;  

Uses crt;  

Var i: integer;

S: string;  

Begin  

Clrscr;              

Write(‘Nhap xau S: ‘); Readln(S);              

For i:=length(S) downto 1 do              

If S[i] in [‘0’..’9’] then              

Delete(S,i,1);              

Writeln(‘Xau sau khi xoa: ‘,S);  

End.

Câu 46: Hãy tính tổng của các số từ 1 đến 100.

Lời giải:

Ta thấy: 1+100=2+99=…=101

Như vậy từ 1 đến 100 sẽ có 50 cặp có kết quả = 101

Tổng các số từ 1 đến 100 là:

          101 x 50 = 5050

                       Đáp số: 5050

Đánh giá

0

0 đánh giá