tin hoc

[Tiểu my]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viet chuong trinh pasacal nhap vao mot chuoi ki tu
in ra man hinh chuoi da nhap
dem so ki tu trong chuoi
in ra chuoi da nhap theo thu tu nguoc lai

 

[Thy Hương]

Mình nghĩ nó như này:

Program bt;
Uses crt;
Var a: string;
i,n: longint;
Begin
Clrscr;
Wrriteln('Moi nhap chuoi ki tu');
Readln(a);
n:=length(a);
Writeln('Chuoi ki tu của bạn:',a);
Writeln('So ki tu trong chuoi la:',n);
Write('Xau dao nguoc la: ');
For i:=1 to n do
Write(a:2);
Readln;
End.

 

[Tiểu my]

nhung ma in ra chuoi theo thu tu nguoc lai la
for i:= n down to 1 do writeln (a); thi moi ra ket qua dung .thanks ban nha

 

[Tiểu my]

Mình nghĩ nó như này:

Program bt;
Uses crt;
Var a: string;
i,n: longint;
Begin
Clrscr;
Wrriteln('Moi nhap chuoi ki tu');
Readln(a);
n:=length(a);
Writeln('Chuoi ki tu của bạn:',a);
Writeln('So ki tu trong chuoi la:',n);
Write('Xau dao nguoc la: ');
For i:=1 to n do
Write(a:2);
Readln;
End.

nhung ma in ra chuoi theo thu tu nguoc lai la
for i:= n down to 1 do writeln (a); thi moi ra ket qua dung .thanks ban nha