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.

22 tháng 3 2023

a/ var s: string;

b/ readln(s);

c/ write(length(s));

d/ for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]);

uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1,st2);

if st1>st2 then writeln('Xau st1 lon hon')

else if st2>st1 then writeln('Xau st2 lon hon')

else writeln('Hai xau bang nhau');

readln;

end.

20 tháng 10 2019

Đáp án đúng : D

11 tháng 9 2018

Đáp án đúng : C

28 tháng 5 2018

Đáp án đúng : B

uses crt;

var kt:boolean;

st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

kt:=true;

for i:=1 to d do 

  if st[i]<>st[d-i+1] then kt:=false;

if kt=true then writeln('Day la xau doi xung')

else writeln('Day khong la xau doi xung');

readln;

end.

7 tháng 10 2018

Var a: string;

  i, Dem: integer;

Begin

 writeln(‘nhap xau:’);

 Readln(a);

 Dem:=0;

 For i:=1 to length(a) do

 If (‘0’<=a[i]) and (a[i]<=’9’) then Dem:= Dem+1;

 Writeln(Dem);

 Readln

End.

14 tháng 3 2021