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