Ký tự tiếp theo của dãy A,D,G,J là:

đáp án: M

học tốt!!!

Câu đố IQ số 9: Ký tự tiếp theo của dãy ký tự A, D, G, J là gì ?

- Chữ "M"-

>>Đáp án câu đố IQ: Đáp án C. M bởi A, D, G, J đều là chữ cái bắt đầu trong 1 dãy chữ cái và M cũng thế

Ký tự T I N H O C có 6 chữ cái

Ta có : 

2016 : 6 = 336 => chữ thứ 2016 là chữ C

3000 : 6 = 500 => chữ thứ 3000 là chữ C

k mk nha !

mình nghĩ câu trả lời của TXT Channel Funfun không hiệu quả và logic cho lắm!

mình cần cách trình bày rõ ràng hơn!

ai đó giúp mình với nhanh lên

thêm test đây nha:

Dữ liệu : Vào từ từ tệp Suaxau.Inp chứa xâu cần sửa. 

Kết quả:  Ghi vào tệp Suaxau.out xâu đã sửa. 

Ví dụ: 

https://youtu.be/b5YcStwxIiM

A. NÊN

B. KHÔNG NÊN

C. KHÔNG NÊN

D. KHÔNG NÊN

Var st:string;

i,dem:integer;

Begin

Write('Nhap xau ky tu ');readln(st);

For i:=1 to length(st) do

If st[i] = 'a' then dem:=dem+1;

Write('So ky tu a co trong xau la ',dem);

Readln;

End.

Program HOC24;

var s: string;

tg,d,max,i: byte;

code: integer;

begin

write('Nhap xau : '); readln(s);

// cau a

for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(upcase(s[i]));

//------

writeln;

//-cau b

for i:=length(s) downto 1 do if s[i] in ['0'..'9'] then write(s[i]);

//------

writeln;

//---cau c

d:=0;

for i:= 1 to length(s) do

if s[i] in ['0'..'9'] then 

begin

val(s[i],tg,code);

if tg>max then max:=tg;

d:=d+1;

end;

if d=0 then write('Khong co chu so trong day') else write('Chu so lon nhat la : ',max);

readln 

end.

uses crt;

var st,st1:string;

d,i,d1,max,x,y:integer;

begin

clrscr;

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

d:=length(st);

writeln('Day cac ki tu thuong doi sang chu hoa la: ');

for i:=1 to d do 

  if st[i] in ['a'..'z'] then write(upcase(st[i]):4);

st1:=''

for i:=1 to d do 

  if st[i] in ['0'..'9'] then st1:=st1+st[i];

d1:=length(st1);

for i:=d1 downto 1 do 

  write(st1[i]:4);

writeln;

max:=0;

for i:=1 to d1 do 

  begin

val(st1[i],x,y);

if max<x then max:=x;

end;

writeln('Chu so lon nhat trong xau la: ',max);

readln;

end.