Viết chương trình: – Nhập vào một xâu S từ bàn phím. – Hãy đưa ra màn hình tất cả các nguyên âm xuất hiện trong xâu S vừa nhập và đếm xem trong xâu vừ

0 bình luận về “Viết chương trình: – Nhập vào một xâu S từ bàn phím. – Hãy đưa ra màn hình tất cả các nguyên âm xuất hiện trong xâu S vừa nhập và đếm xem trong xâu vừ”

1. program Tin_hoc;

   uses crt;

   var i,k:integer;

        s:string;

   begin

   clrscr;

   writeln(‘Nhap xau S:’);readln(s);

   k:=0;

   writeln(‘Cac so nguyen am co trong xau S la:’);

   for i:= 1 to length(s) do if (s[i] = ‘-‘) and (s[i+1] in [‘1’..’9′]) then

   begin

   write(s[i],”,s[i+1],’   ‘);

   inc(k)

   end;

   writeln(‘Xau S co ‘,k,’ so nguyen am’);

   readln;

   end.

   Nhớ cho mik câu TLHN nha

   Trả lời