cho số tự nhiên hãy tìm số n bằn cách loại bỏ các chữ số 0 và số 5 và dữ nguyên thứ tự của nó ,vd n=508910059 thì m=8919 pascal làm bằng chương trình trính dễ hiểu tý nha
2 câu trả lời
uses crt;
var n,i:longint; s,m:string;
begin
clrscr;
write('Nhap n: ');readln(n);
str(n,s);
for i:=1 to length(s) do
if (s[i]<>'0')and(s[i]<>'5') then m:=m+s[i];
writeln(m);
readln
end.
program baitap;
uses crt;
var s,st:string;
i:longint;
begin
clrscr;
readln(s);
st:='';
for i := 1 to length(s) do
if (s[i] <> '0') and (s[i] <> '5') then
st := st + s[i];
writeln(st);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
