Câu hỏi:

13/07/2024 1,190 Lưu

Viết chương trình in ra màn hình họ và tên của mình

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

Lời giải:

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;
H:=Copy(HT,1,SL);
i:=Length(HT); SL:=0;
While HT[i]<>' ' do
Begin
SL:=SL+1;
i:=i -1;
End;
VT:=Length(HT) - SL +1;
T := Copy(HT,VT,SL);
Writeln('Ho la :',H);
Writeln('Ten la :,T);
Readln.

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

Lời giải

Lời giải:

Đáp án đúng: D

Xem, sửa, bổ sung và xóa dữ liệu

Câu 2

Lời giải

Lời giải:

Đáp án D.

Microsoft Excel không phải là hệ quản trị cơ sở dữ liệu quan hệ.

Câu 3

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 4

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 5

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 6

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 7

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP