nhập 1 xâu S từ bàn phím (s<25), đưa ra màn hình xâu St nhưng mỗi kí tự viết trên 1 dòng.
Giúp e vs.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
NT
1
KV
5 tháng 5 2023
var s:string;
i,d:integer;
begin
write('Nhap xau s = ');readln(s);
for i:=1 to length(s) do
if (s[i] = 'A') and (s[i+1] = 'n') then d:=d+1;
write('Co ',d,' van An');
readln
end.
3 tháng 3 2021
Use crt;
Var S : String;
P: longint;
Begin
Write('Nhap s: '); readln (S);
For P:=length(S) downto 1 do
Write(P);
Readln;
End.
3 tháng 3 2021
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau ban vua nhap la: ',st);
writeln('Xau nguoc la: ');
for i:=d downto 1 do
write(st[i]:4);
readln;
end.
21 tháng 3 2021
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau:'); readln(s);
s[1]:=upcase(s[1]);
writeln('Xau sau khi doi la: ',s);
readln;
end.
program st;
ues crt;
var s:string;i:longint;
begin
clrscr;
write('nhap do dai cua xau');readln(s);
if (s>=25)then
begin
write('nhap lai s nho hon 25');readln(s);
end;
for i:=1 to length(s) do writeln(s[i]);
readln;
end.