Mở chương trình pascal và thực hiện viết chương trình với các nội dung sau: 1. Xuất ra màn hình họ và tên HS-Mã số
2 câu trả lời
uses crt;
var s1, s2 : string;
begin
clrscr;
write('Nhap Họ và Tên : '); readln(s1);
write('Nhập Mã Số : '); readln(s2);
writeln(s1 + ' - ' + s2);
readln
end.
Var HT, H, T :String;
VT,SL, i : Byte;
Begin
Write('Nhap Ho va Ten 1 nguoi :'); Readln(HT);
i:=1; SL:=0;
While HT[i]<>' ' do
Begin
SL:=SL+1;
i:=i+1;
End;
Câu hỏi trong lớp
Xem thêm