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?
Sự kiện
487
4836
773
vào nhs mik đc bn ơi
606
15104
281
ko
487
4836
773
vng
1233
20305
655
code lên tay thế ❤️
606
15104
281
Sắp thi