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ừa nhập có bao nhiêu nguyên âm. Cảm ơn các bạn.
2 câu trả lời
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
uses crt;
var s : string; i, dem : byte;
begin
clrscr;
write('Nhap xau : '); readln(s);
dem := 0;
for i := length(s) downto 2 do
if (s[i - 1] = '-') and (s[i] in ['1' .. '9'])
then dem := dem + 1;
write('Co ', dem ,' so nguyen am trong xau');
readln
end.
Câu hỏi trong lớp
Xem thêm