K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

28 tháng 3 2022

Cho xâu S1=‘Ha  Noi ’; xâu S2 =‘Viet  Nam’. 

Kết quả của thủ tục Insert(s1,s2,6) là:

A. ‘Viet Ha Noi Nam’ B. ‘Viet Ha NoiNam’

C. ‘VietHa Noi Nam’ D. ‘VietHa NoiNam’

29 tháng 3 2022

không câu nào đúng. kết quả đúng là: Viet NHa Noiam

2 tháng 5 2023

Program HOC24;

var s: string;

begin

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

delete(s,9,7);

write(s);

readln

end.

14 tháng 4 2016

32 h bn ak.

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

14 tháng 4 2016

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

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.

4 tháng 4 2021

Anh ơi! Nếu mình làm xong cái này thì kết quả nó sẽ ra là gì ạ? Em kh cài Pascal nên kh kiểm tra được ạ! Phiền anh

15 tháng 3 2021

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.

19 tháng 3 2021

giúp em với 

 

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.