program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

1:

function dt(r:real):real;

begin

dt:=sqr(r)*pi;

end;

2:

function dt(a,b:real):real;

begin

dt:=1/2*a*b;

end;

cứu mình với

chỉ mình với ạ

b) 

uses crt;

var i,y:integer;

begin

clrscr;

y:=0;

for i:=1 to 100 do 

  y:=y+i;

writeln('y=',y);

readln;

end.

c) 

uses crt;

var y,i:integer;

begin

clrscr;

y:=0;

i:=1;

while y<=3200 do 

  begin

y:=y+i;

inc(i);

end;

writeln('y=',y);

readln;

end.

program TinhDienTichHinhTron;
var
  fIn, fOut: Text;
  r: Integer;
  dien_tich: Real;
begin
  Assign(fIn, 'dt_ht.inp');
  Reset(fIn);
  Readln(fIn, r);
  Close(fIn);

  Assign(fOut, 'dt_ht.out');
  Rewrite(fOut);

  dien_tich := Pi * r * r;

  Writeln(fOut, FormatFloat('0.00', dien_tich));

  Close(fOut);
end.

L=int(input('L='))

R=int(input('R='))

a=int(input('a='))

b=int(input('b='))

if a > 0 and b > 0 and R > 0 and L > 0:

       d=0

       for i in range (L,R+1):

              if i%a==0 or i%b==0:

                     d+=1

       print('Số lượng các bội số của ',a,' hoặc ',b,' là: ',d)

Tk:
 

Code c:

#include <stdio.h>

#include <conio.h>

#include <math.h>

#define PI 3.14159

int main() {

            int r;

            float chuvi, dientich;

            printf("Nhap ban kinh r:");

            scanf("%d", &r);

            chuvi = 2*PI*r;

            dientich = PI*r*r;

            printf("Chu vi hinh tron la: %f\n", chuvi);

            printf("Dien tich hinh tron la: %f", dientich);

            getch();

}