Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
h zu niê
Xem chi tiết
Minh Lệ
2 tháng 5 2023 lúc 20:50

Program HOC24;

var s: string;

begin

s:='Ha Noi - thu do Viet Nam'

delete(s,9,7);

write(s);

readln

end.

quynh anh cute
Xem chi tiết
Linh Nguyên Scorpio
14 tháng 4 2016 lúc 18:18

32 h bn ak.

ai tích mink mink tích lại cho

oOo Vũ Khánh Linh oOo
14 tháng 4 2016 lúc 17:37

mk nhanh nhất ,tích nha,mk gửi rùi chắc lúc nữa mới hiện

Phạm Thị Linh
14 tháng 4 2016 lúc 17:40

bạn đâu ạ

Park Hyomin
Xem chi tiết
le lan anh
Xem chi tiết
Pham loan
Xem chi tiết
Thangg PH
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2021 lúc 19:48

uses crt;

const s1='Pin_NLMT'

s2='Pin_luthium'

s3='Pin_JA_Solar'

s4='Pin_Jinko_Solar'

begin

clrscr;

if s1<s4 then writeln('Xau s1 nho hon xau s4')

else if s1=s4 then writeln('Xau s1 bang xau s4)

else writeln('Xau s1 lon hon xau s4');

if s2<s3 then writeln('Xau s2 nho hon xau s3')

else if s2=s3 then writeln('Xau s2 bang xau s3')

else writeln('Xau s2 lon hon xau s3');

readln;

end.

🍀Cố lên!!🍀
Xem chi tiết
Ngoc Huyen
Xem chi tiết
Minh Lệ
15 tháng 3 2021 lúc 19:11

Program HOC24;

var s,s1: string;

i: byte;

begin

write('Nhap xau S='); readln(s);

writeln('Xau S= ',s);

write('Xau S1= ');

for i:=length(s)-3 to length(s) do write(s[i]);

readln

end.

Ngoc Huyen
Xem chi tiết
Ngoc Huyen
19 tháng 3 2021 lúc 11:03

giúp em với 

 

Nguyễn Lê Phước Thịnh
19 tháng 3 2021 lúc 12:35

uses crt;

var s,s1:string;

i:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

s1:=#32;

for i:=1 to 4 do 

  s1:=s1+s[i];

writeln(s1);

readln;

end.