0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Uses Crt;
var s: string;
i,d,max,n: longint;
begin
clrscr;
Readln(n);
Read(s); d:= 0; max:= 1;
For i:= 1 to n do
If s[i] in['a','e','i','o','u'] then
begin
inc(d);
If d > max then max:= d;
end
else d:= 0;
Write(max);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
28
9
Uses Crt;
var s: string;
i,d,max,n: longint;
begin
clrscr;
Readln(n);
Read(s); d:= 0; max:= 1;
For i:= 1 to n do
If s[i] in['a','e','i','o','u']
begin
inc(d);
If d > max then max:= d;
end
else d:= 0;
Write(max);
end.
cho 5sao nha
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
524
1585
841
vào nhs mik đc bn ơi
880
16099
456
ko
524
1585
841
vng
1470
22727
721
code lên tay thế ❤️
880
16099
456
Sắp thi