viết chương trình nhập vào năm sinh, xuất ra màn hình số tuổi, mốc tính làm năm sinh của học sinh (Pascal) 27/08/2021 Bởi Amara viết chương trình nhập vào năm sinh, xuất ra màn hình số tuổi, mốc tính làm năm sinh của học sinh (Pascal)
Program Tao_Xau_Ho_Ten; 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; Bình luận
Program Tao_Xau_Ho_Ten;
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;