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.
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
uses crt;
var st:string;
i,d,dem,t,x:integer;
a:array[1..255]of integer;
begin
clrscr;
write('st=');readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then
begin
inc(dem);
val(st[i],a[dem],x);
end;
t:=0;
for i:=1 to dem do
t:=t+a[i];
writeln('tong cac chu so trong xau la: ',t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,a[1000],t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cin>>x;
t=0;
for (i=1; i<=n; i++)
if (a[i]!=x)
{
cout<<a[i]<<" ";
t+=a[i];
}
cout<<endl;
cout<<t;
return 0;
}
Bài 1:
uses crt;
var st,st1:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
st1:='';
d:=length(st);
for i:=1 to d do
st1:=st1+st[i];
for i:=1 to d do
write(st1[i]);
readln;
end.
Bài 2:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='A' then inc(dem);
writeln('So ki tu A trong xau vua nhap la: ',dem);
readln;
end.
Bài 3:
uses crt;
var s:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
for i:=1 to d do
write(s[i]);
readln;
end.
Bài 4:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]='A' then st[i]:='B';
writeln('Xau vua chuyen doi la: ');
for i:=1 to d do
write(st[i]);
readln;
end.
3.
Program HOC24;
var s: string;
begin
write('Nhap xau S='); readln(s);
s:=upcase(s);
write(s);
readln
end.
4.
Program HOC24;
var s: string;
begin
write('Nhap xau : '); readln(s);
while pos('A',s)<>0 do
begin
insert('B',s,pos('A',s));
delete(s,pos('A',s),1);
end;
write(s);
readln
end.
Cách 1: Có sử dụng
uses crt;
var st:string;
{---------------------------chuong-trinh-con--------------------------}
procedure cd(var s:string);
var i,d:integer;
begin
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
for i:=1 to d do
write(s[i]);
end;
{--------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('Nhap xau:'); readln(st);
cd(st);
readln;
end.
Cách 2: Không sử dụng
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
for i:=1 to d do
write(st[i]);
readln;
end.
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
{---------------------------cau-a---------------------------}
write('nhap xau:'); readln(st);
{---------------------------cau-b---------------------------}
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
for i:=1 to d do
write(st[i]);
{--------------------------cau-c----------------------------}
writeln;
while pos(' ',st)>0 do
delete(st,pos(' ',st),1);
if st[1]=' 'then delete(st,1,1);
if st[d]=' 'then delete(st,d,1);
writeln('xau sau khi bien doi la: ',st);
readln;
end.
Câu 1:
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]='a' then inc(dem);
writeln('so lan xuat hien cua chu a trong xau ',s,' la: ',dem);
readln;
end.
Câu 2:
uses crt;
var a:array[1..99]of integer;
n,i,k:integer;
s:longint;
begin
clrscr;
repeat
write('nhap n='); readln(n);
if n>=100 then writeln('nhap lai');
until n<100;
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
if a[i]>=3000 then writeln('nhap lai');
until a[i]<3000;
end;
write('nhap so k:'); readln(k);
s:=1;
for i:=1 to n do
if k mod a[i]=0 then s:=s*a[i];
writeln('tich cac uoc cua ',k,' trong day la: ',s);
readln;
end.
Để mình bày cho nhé :
\(x^3=\) x * x * x
\(x^n\) = x * x * x * .....
|_____|
n x
không có cách ngắn hơn hả bạn