1. Cho mảng B một chiều gồm M phần tử. Viết chương trinh nhập giá trị vào cho mảng, sau đó in ra màn hình các phần tử các phần tử có giá trị là chẵn và là bội của 4 có trong mảng.
2. Viết chương trình nhập vào xâu S bất kỳ từ bàn phím. In ra màn hình các chữ cái có trong xâu, nếu không có thì in ra màn hình dòng thông báo ‘khong co ky tu nao la chu cai co trong xau’.
giúp em với ạ!!!!! em đang cần...
Đọc tiếp
1. Cho mảng B một chiều gồm M phần tử. Viết chương trinh nhập giá trị vào cho mảng, sau đó in ra màn hình các phần tử các phần tử có giá trị là chẵn và là bội của 4 có trong mảng.
2. Viết chương trình nhập vào xâu S bất kỳ từ bàn phím. In ra màn hình các chữ cái có trong xâu, nếu không có thì in ra màn hình dòng thông báo ‘khong co ky tu nao la chu cai co trong xau’.
giúp em với ạ!!!!! em đang cần gấppp
Câu 1:
uses crt;
var b:array[1..100]of integer;
m,i:integer;
begin
clrscr;
write('nhap m='); readln(m);
for i:=1 to m do
begin
write('b[',i,']='); readln(b[i]);
end;
writeln('cac so chan va la boi cua 4 la: ');
for i:=1 to m do
if (b[i] mod 2=0) and (b[i] mod 4=0) then write(b[i]:4);
readln;
end.
Câu 2:
uses crt;
var s:string;
d,kt,i:integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
d:=length(s);
kt:=0;
for i:=1 to d do
if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then
begin
kt:=1;
write(s[i]:4);
end;
if kt=0 then writeln('Khong co ky tu nao la chu cai trong xau');
readln;
end.