đề thực hành pascal

writeln'phuong trinh vo so nghiem' else writeln'phuong trinh vo nghiem'; end... writeln'TRUONG TRINH KIEM TRA SO NGUYEN TO';write'nhap so n muon kiem tra:'; readlnn; for i:= 2 to truncsq

writeln('phuong trinh vo so nghiem') else

writeln('phuong trinh vo nghiem'); end

if (a+b>c) and (a+c>b) and (b+c>a) and

(a>0) and (b>0) and (c>0) then

else

t:=b;

until (a>0) and (b>0);

writeln('TRUONG TRINH KIEM TRA SO NGUYEN TO');

write('nhap so n muon kiem tra:'); readln(n);

for i:= 2 to trunc(sqrt(n)) do

writeln('trung binh cong cac so vua nhap: ',s/(d-1):3:2);readln;

for i:=1 to d-1 do s:=s+a[i];

writeln('trung binh cong cac so vua nhap: ',s/(d-1):3:2);readln;

write('cho so phan tu n='); readln(n);

writeln('nhap gia tri cac phan tu cua day');

for i:= 1 to n do

write('vi tri cua chung la'); for i:=1 to n do

write('cho so phan tu n='); readln(n);

writeln('nhap gia tri cac phan tu cua day'); for i:= 1 to n do

begin

if ( a[i]>x ) and ( a[i]<y) then

write('cho so phan tu n='); readln(n);

writeln('nhap gia tri cac phan tu cua day'); for i:= 1 to n do

begin

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

readln(a[i]);

end;

writeln('day so vua nhap la');

a:array [1 20] of integer;

begin

write('cho so phan tu n='); readln(n);

writeln('nhap gia tri cac phan tu cua day'); for i:= 1 to n do

write('cho so phan tu n='); readln(n);

writeln('nhap gia tri cac phan tu cua day');

write('cho so phan tu n='); readln(n);

writeln('nhap gia tri cac phan tu cua day'); for i:= 1 to n do

write('nhap so muon chen x= '); readln(x);write('nhap vi tri k can chen k= '); readln(k); a[k]:=x;

writeln('day so sau khi chen la: ');

write('cho so phan tu n='); readln(n);

writeln('nhap gia tri cac phan tu cua day'); for i:= 1 to n do

write('ban co muon tiep tuc khong ,neu khong an phim k

write('cho so phan tu n='); readln(n);

writeln('nhap gia tri cac phan tu cua day');

for i:= 1 to n do

begin

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

write('cho so hang cua ma tran m='); readln(m);

write('cho so cot cua ma tran n='); readln(n);

writeln('nhap gia tri cac phan tu cua ma tran :');

for j:=1 to n do

begin

write('a[',i,',',j,']=');

writeln('nhap gia tri cac phan tu cua ma tran :');for i:= 1 to m do

for j:=1 to n do

begin

write('A[',i,',',j,']=');

readln(A[i,j]);

writeln('nhap gia tri cac phan tu cua ma tran :');

writeln('ma tran vua nhap:');

write(a[i,j]:7);

writeln;

end;

d:=0; d1:=0; d2:=0; write('so so 0 la:');

for j:=1 to n do

if a[i,j] mod 2 <>0 then

for i:=1 to length(st) do

if copy(st,i,6)='ha noi' then

d:=d+1;

write('so tu ha noi trong chuoi la: ',d:3);readln;

for i:=1 to length(st) do

if st[i]<>#32 and st[i+1]= #32 then d:d+1;

write('trong chuoi co ',d,'tu');

readln;

end

program bt9th4;