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.
Câu 3:
#include <bits/stdc++.h>
using namespace std;
string a[1000];
int n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>a[i];
if (a[i]=='a') dem++;
}
cout<<dem;
return 0;
}
1:
#include <bits/stdc++h>
using namespace std;
string a,b;
int main()
{
getline(cin,a);
getline(cin,b);
cout<<a<<" "<<b;
return 0;
}
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau :'); readln(s);
for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);
readln
end.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]='a' then delete(st,i,1);
writeln(st);
readln;
end.
1.
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau : '); readln(s);
for i:=length(s) downto 1 do write(upcase(s[i]));
readln
end.
1:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Dang dao nguoc cua xau la: ');
for i:=d downto 1 do
write(st[i]);
writeln;
for i:=1 to d do
st[i]:=upcase(st[i]);
write('Xau duoi dang in hoa la: ',st);
readln;
end.
2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
i:=pos('anh',st);
while i<>0 do
begin
delete(st,i,3);
insert('em',st,i);
i:=pos('anh',st);
end;
while st[1]=#32 do
begin
delete(st,1,1);
d:=length(st);
end;
while st[d]=#32 do
begin
delete(st,d,1);
d:=length(st);
end;
for i:=1 to d do
while (st[i]=#32) and (st[i+1]=#32) do
begin
delete(st,i,1);
d:=length(st);
end;
writeln('Xau sau khi xu ly la: ',st);
readln;
end.
Bài 1:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Cac ki tu thuong trong xau ',st,' la: ');
for i:=1 to d do
if st[i] in['a'..'z'] then write(st[i]:4);
readln;
end.
Bài 2:
uses crt;
var st:string;
d,i,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln('Xau doi xung')
else writeln('Xau khong doi xung');
readln;
end.
uses crt;
const fo='mang_chan.out';
var f1:text;
a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
assign(f1,fo); rewrite(f1);
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(f1,a[i]:4);
close(f1);
readln;
end.
uses crt;
var i,n,x,kt:longint;
A:array[1..10000] of longint;
begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i, ' cua mang: '); readln(A[i]);
end;
kt:=0;
write('Nhap X: '); readln(x);
for i:=1 to n do
if A[i]=x then
begin
writeln('Tim thay');
break;
end
else kt:=kt+1;
if kt=n then writeln('Khong tim thay');
readln
end
bạn ơi chữ break có nghĩa là gì?