2 câu trả lời
var k,i,l:longint;
s,x:string;
begin
writeln(' nhap k');
readln(k);
s:='';
l:=length(s);
while length(s)<=k do
begin
str(i,x);
s:=s+x;
end;
i:=i+2;
writeln('kq:',s[k]);
write(s);
readln;
end.
uses crt;
var a:array[0..1000007] of longint;
i,k,n,cnt:longint;
begin
clrscr;
write('Nhap vao so luong nhap: ');readln(n);
while n <> 0 do
begin
inc(cnt);
write('Nhap vao so chan thu ',cnt,': ');readln(i);
a[cnt] := i;
dec(n);
end;
write('Nhap vao k = ');readln(k);
writeln('So thu ',k,' trong day la ',a[k]);
readln;
end.
- Đề 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
