Question

Bt1 cho xâu Đt 255 kí tự bao gồm từ a đến z thường(A->Z) và từ 0->9 câu hỏi tạo xây gồm các kí tự từ a đến z

Bt2 cho dãy số a và số thực k, tìm tầng bội(ước) của k

Answer 1

Bài 1:

uses crt;

var st,st1:string;

d,i,d1:integer;

begin

clrscr;

write('Nhap xau ban dau:'); readln(st);

d:=length(st);

st1:='';

for i:=1 to d do

if st[i] in ['a'..'z'] then st1:=st1+st[i];

d1:=length(st1);

write('Xau ban vua tao la: ');

for i:=1 to d1 do

write(st1[i]);

readln;

end.

Bài 2:

uses crt;

var a:array[1..100]of real;

i,n:integer;

k:real;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap so k='); readln(k);

writeln('Cac boi cua ',k:4:2,' trong day la: ');

for i:=1 to n do

if a[i] mod k=0 then write(a[i]:4);

writeln;

writeln('Cac uoc cua ',k:4:2,' trong day la: ');

for i:=1 to n do

if k mod a[i]=0 then write(a[i]:4);

readln;

end.