mọi người giúp em với ạ . đang cần gấp câu 1 : viết chương trình nhập 1 xâu từ bàn phím , đưa ra màn hình số lượng dấu cách trong xâu câu 2 : viết ch

0 bình luận về “mọi người giúp em với ạ . đang cần gấp câu 1 : viết chương trình nhập 1 xâu từ bàn phím , đưa ra màn hình số lượng dấu cách trong xâu câu 2 : viết ch”

1. Program Hotboy ; 

   uses crt;

   var xau:  string;

   i,so: byte;

   begin

   clrscr;

   So:=0;

   Write(‘Nhap xau tu ban phim’); readln(xau);

   For i:=1 to length(xau) do if xau[i]=’ ‘ then so:=so+1;

   writeln(‘So luong dau cach trong xau la’,so);

   Readln

   End.

   Câu $2$ 

   Program Hotboy;

   Uses crt;

   Var xau,xau1: string;

    i,n,so: integer;

   Begin

   Clrscr;

   Write(‘Nhap xau tu ban phim :’); readln(xau);

   Write(‘Nhap xau tu ban phim :’); readln(xau1);

   So:=length(xau) + length(xau1);

   Write(‘tong so luong cac ki tu trong xau la’,so);

   Readln

   End.

   Bình luận

2. Câu 1: 

   uses crt;

   var st: string;

   i,dem: integer;

   begin

   clrscr;

   write(‘Nhap xau: ‘); readln(st);

   dem:=0;

   for i:=1 to length(st) do if st[i]=’ ‘ then inc(dem);

   write(‘So lan khoang trang: ‘,dem);

   readln;

   end.

   Cau 2:

   uses crt;

   var st,s: string;

   i,j,dem1,dem2: integer;

   begin

   clrscr;

   write(‘Nhap xau 1: ‘); readln(st);

   write(‘Nhap xau 2: ‘); readln(s);

   dem1:=0;

   dem2:=0;

   for i:=1 to length(st) do inc(dem1);

   for j:=1 to length(s) do inc(dem2);

   write(‘Tong so luong cac ki tu: ‘,dem1+dem2);

   readln;

   end.

   Bình luận