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 x,dt,s:real;
i:integer;
{---------------chuong-trinh-con-nhap--------------------------}
procedure nhap(a:real);
begin
write('Nhap ban kinh:'); readln(a);
end;
{--------------------chuong-trinh-con-tinh-dien-tich-----------------------------}
function dtht(a:real):real;
begin
dtht:=sqr(a)*pi;
end;
{-----------------------chuong-trinh-chinh-----------------------------}
begin
clrscr;
s:=0;
for i:=1 to 5 do
begin
nhap(x);
dt:=dtht(x);
s:=s+dt;
end;
writeln(s:4:2);
readln;
end.
xau = input('Nhập vào một xâu kí tự có độ dài n: ')
n=len(xau)
dem=0
for i in range(n):
if xau[i].isdigit():
dem+=1
print(' Số kí tự chữ số trong xâu: ', dem)
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=100 to 999 do
if i mod 6=2 then inc(dem);
writeln('so luong cac so tu nhien co 3 chu so chia cho 6 du 2 la: ',dem);
readln;
end.
Viết chương trình con chuyển các từ viết thường sang viết hoa. (trong pascal)
Vd: pascal sang PASCAL
Program Doi_Sang_Chu_Hoa;
Var S , SH: String; i : Byte;
Begin
Write('Nhap vao mot chuoi chu thuong : '); Readln(S);
SH := ''; {tạo xâu rỗng SH}
For i := 1 to Length(S) do SH[i] := UpCase(S[i];
Write('Chuoi da doi sang chu hoa: ',SH);
Readln;
End.
bạn dùng hàm UpCase(kí tự) để đổi từ chữ thường sang chữ hoa
Program Chuoi_In_Hoa;
Uses Crt;
Var i:integer;st:string;
Begin
Clrscr;
Writeln(‘DOI CHUOI SANG CHUOI HOA’);
Write(‘Nhap ho ten:’);readln(st); st[1]:=upcase(st[1]);
For i:=1 to length(St) do
If st[i]=’ ‘ then st[i+1]:=upcase(st[i+1]); Writeln(‘Ho ten sau khi doi lan 1 la: ‘,st);
For i:=1 to length(St) do st[i]:=upcase(st[i]);
Writeln(‘Ho ten sau khi doi lan 2 la: ‘,st);
Readln;
End.
#include <bits/stdc++.h>
using namespace std;
long long m,n;
int main()
{
cin>>m>>n;
if (m%n==0) cout<<m/n;
else if (n%m==0) cout<<n/m;
else cout<<m+n;
return 0;
}
uses crt;
var a,b,c:array[1..100]of integer;
dem,dem1,n,i,j:integer;
begin
clrscr;
write('nhap chieu dai cua day:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------------------------}
write('day A=');
for i:=1 to n do write(a[i]:4);
{-------------xu-ly-so-duong--------------------}
writeln;
writeln('day cac so duong sau khi sao chep sang B la: ');
dem:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
dem:=dem+1;
b[dem]:=a[i];
end;
end;
for i:=1 to dem do write(b[i]:4);
{---------------xu-ly-so-am----------------------}
writeln;
writeln('day cac so am sau khi sao chep sang C la: ');
dem1:=0;
for i:=1 to n do
begin
if a[i]<0 then
begin
dem1:=dem1+1;
c[dem1]:=a[i];
end;
end;
for i:=1 to dem1 do write(c[i]:4);
readln;
end.
1:
uses crt;
var a,b:integer;
s:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if (a>0) and (b>0) then
begin
s:=(a*a*a+b*b*b)/(sqrt(a+b));
writeln('A=',s:4:2);
end
else writeln('vui long nhap hai so duong');
readln;
end.
2:
uses crt;
var a,b,s:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a mod 5<>0 then
begin
s:=a*b;
writeln('tich cua hai so la: ',s);
end
else writeln('vui long nhap a khong chia het cho 5');
readln;
end.
3: Bạn xem lại đề , Hình như phải là 2+4+6+...+2*n chứ bạn
F6=E6+G6/F6