Viết chương trình nhập và in danh sách lớp theo thứ tự điểm.
Program dslop;
uses crt;
var a:array[1..1000] of string;
b:array[1..1000] of real;
i,j,n:Integer;
c1:string;
c:real;
Begin
clrscr;
Write('Lop hoc co bao nhieu hoc sinh: '); Readln(n);
For i:=1 to n do begin
Write('Ten hoc sinh thu ',i,' : '); Readln(a[i]);
Repeat Writeln('Diem nay phai be hon 10');
Write('Nhap diem cua hoc sinh thu ',i,': ');Readln(b[i]);
until b[i]<=10;
end;
for i:=1 to n-1 do
for...
Thứ Sáu, 15 tháng 12, 2017
Viết chương trình in ra số đảo của số vừa nhập VD: 123 -> 321
Viết chương trình in ra số đảo của số vừa nhập
VD: 123 -> 321.
Program sodao;
uses crt;
var a,i,s,m:Longint; b,c:string;
Begin
clrscr;
Writeln('Moi ban nhap so');
readln(a);
str(a,b);
For i:=length(b) downto 1 do c:=c+b[i];
val(c,s,m);
Writeln('So dao la ',s);
Readln;
End.
Bài tập này, bạn cần hiểu rõ về kiểu string....
