số di động của mạng Viettel bao gồm những đầu số sau. với số có 10 chữ số thì có:096, 097, 098. với số có 11 chữ số thì có:0162, 0163, 0164, 0165, 0166, 0167, 0168, 0169. viết chương trình nhập số điện thoại bất kì và xem số có thuộc mạng viettel hay không. viết chương trình pascal. giúp me với
2 câu trả lời
uses crt;
var s:string; kt:boolean;
begin
clrscr;
write('Nhap vao so dien thoai: ');readln(s);
if length(s)=10 then
begin
s:=copy(s,1,3);
if (s='096')or(s='097')or(s='098') then kt:=true;
end else
if length(s)=11 then
begin
s:=copy(s,1,4);
if (s='0162')or(s='0163')or(s='0164')or(s='0165')or(s='0166')or(s='0167')or(s='0168')or(s='0169') then kt:=true;
end;
if kt then writeln('Day la so dien thoai cua Viettel') else
writeln('Day khong la so dien thoai cua Viettel');
readln
end.
uses crt;
var s,tmp:string;
begin
clrscr;
readln(s);
if(length(s) = 10) then
begin
tmp:=copy(s, 1, 3);
if(tmp = '096') or (tmp = '097') or (tmp = '098') then
writeln('Thuoc mang Viettel')
else writeln('Khong thuoc mang Viettel');
end
else if(length(s) = 11) then
begin
tmp:=copy(s, 1, 4);
if(tmp = '0162') or (tmp = '0163') or (tmp = '0164')
or (tmp = '0165') or (tmp = '0166') or (tmp = '0167') or (tmp = '0168')
or (tmp = '0169') then writeln('Thuoc mang Viettel')
else writeln('Khong thuoc mang Viettel');
end
else writeln('Khong thuoc mang Viettel');
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
