#include <bits/stdc++.h>

using namespace std;

double r;

int main()

{

cin>>r;

cout<<fixed<<setprecision(2)<<r*2*pi<<endl;

cout<<fixed<<setprecision(2)<<r*r*pi;

return 0;

}

THAM KHẢO:

uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('a='); readln(a);

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.

Mình viết phần thân thôi nha

n khai báo là interger

n:=0;

While n<>100 do

 Begin

 Write(n,' ');

 inc(n);

 end;

PROGRAM LOSER;
USES crt;
VAR  
  i:Bytbe;
BEGIN
 clrssr ();
 i:=1;
 while i <100 do
 BEGIN
 write('',i);
 i:=i+1;
 End;
Readln;
END.

( uy tín chạy được em nha)

a)Hình vuông

Program bt;

Var a,S,Cv:integer;

Begin

Writeln('Nhap a:=');

Readln(a);

S:=a*a;

Writeln('Dien tich hinh vuong la:=',S);

Cv:=a*4;

Writeln('Chu vi hinh vuong la:=',Cv);

Readln;

End.

mình dồn 5 cái này vào cùng 1 bài luôn

program thinh;
uses crt;
var a,dt,dai,rong,dt_hcn,r,c1,c2,c3,hthang,c,d,b,cv,cv_hcn,b1,b2,cv_ht:integer;
hinh:string;
s_tron,p,s,s_ht,cv_tron,cv_tg:real;
begin
clrscr;
write('nhap hinh ban muon tinh chu vi va dien tich:'); readln(hinh);
case hinh of
'hinh vuong':
begin
repeat
write('nhap canh cua hinh vuong:'); readln(a);
if a<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a>0;
cv:=a*4;
dt:=a*a;
writeln('chu vi cua hinh vuong co canh ',a,'cm la: ',cv);
writeln('dien tich hinh vuong co canh la: ',a,'cm la: ',dt);
end;
'hinh chu nhat':
begin
repeat
write('nhap chieu dai:'); readln(dai);
write('nhap chieu rong:'); readln(rong);
if (dai<=rong) or (dai<=0) or (rong<=0) then
writeln('ban da nhap sai, yeu cau ban nhap lai');
until (dai>rong) and (dai>0) and (rong>0);
cv_hcn:=(dai+rong)*2;
dt_hcn:=dai*rong;
writeln('chu vi hinh chu nhat co chieu dai la ',dai,'cm va chieu rong la ' ,rong,'cm la: ',cv_hcn);
writeln('dien tich hinh chu nhat co chieu dai la ',dai,'cm va chieu rong la ' ,rong,'cm la: ',dt_hcn);
end;
'hinh tron':
begin
repeat
write('nhap ban kinh:'); readln(r);
if r<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until r>0;
cv_tron:=2*r*pi;
s_tron:=sqr(r)*pi;
writeln('chu vi hinh tron co ban kinh la ',r,'cm la: ',cv_tron:4:2);
writeln('dien tich hinh tron co ban kinh la ',r,'cm la: ',s_tron:4:2);
end;
'hinh tam giac':
begin
repeat
write('nhap canh thu 1:'); readln(c1);
write('nhap canh thu 2:'); readln(c2);
write('nhap canh thu 3:'); readln(c3);
if (c1+c2<=c3) or (c1+c3<=c2) or (c2+c3<=c1) then
writeln('ban da nhap sai, yeu cau ban nhap lai');
until (c1+c2>c3) and (c1+c3>c2) and (c2+c3>c1);
p:=(c1+c2+c3)/2;
cv_tg:=p*2;
s:=sqrt(p*(p-c1)*(p-c2)*(p-c3));
writeln('chu vi hinh tam giac co 3 canh lan luot la: ',c1,'cm;',c2,'cm;',c3,'cm la: ',cv_tg:4:2);
writeln('dien tich hinh tam giac co 3 canh lan luot la: ',c1,'cm;',c2,'cm;',c3,'cm la: ',s:4:2);
end;
'hinh thang':
begin
write('nhap chieu cao hinh thang:'); readln(hthang);
write('nhap canh day thu 1:'); readln(c);
write('nhap canh day thu 2:'); readln(d);
write('nhap canh ben thu 1: '); readln(b1);
write('nhap canh ben thu 2: '); readln(b2);
s_ht:=1/2*hthang*(c+d);
cv_ht:=c+d+b1+b2;
writeln('dien tich hinh thang co do dai hai canh day la: ',c,'cm va ',d,'cm la: ',s_ht:4:2);
writeln('chu vi hinh thang co do dai hai canh ben la: ',b1,'cm va ',b2,'cm; do dai hai canh day la: ',c,'cm va ',d,'cm la: ',cv_ht);
end;
end;
readln;
end.

Bai1: a) \(sqr\left(5-1\right)\) mod 3

b) \(sqr\left(10\right)+\left(25-4\right)\)/4

Bai2:Xác định bải toán

Input : Chiều dài b và chiều rộng a.

Output: Diện tích và chu vi thửa ruộng.

Thuật toán

B1:Nhập a,b

B2:CV<-- (a+b)*2

Và S<--a*b

B3: -Thông báo lên màn hình diện tích là s

-Và chu vi là cv

fsa

C1:

Var

a:integer;b: integer;

Begin

a:=0;

Writeln('Hay nhap nam can tinh:');

readln(b);

a:=b-2003;

if a>9 and a<20 then

writeln('Nam dang o trong tuoi vi thanh nien.')

else

writeln('Nam khong o trong tuoi vi thanh nien.');

readln;

end.

1.

program c1;

uses crt;

const namnay=2019;

namsinh=2003;

var tuoi:integer;

begin

clrscr;

tuoi:=namnay-namsinh;

if 10<=tuoi and 19>=tuoi then write('Nam o tuoi vi thanh nien ') else write('Nam khong o tuoi vi thanh nien');

readln

end.