Question

Câu 1: viết chương trình tính (a+b)/(a-b) nhập từ bàn phím

câu 2 viết chương trình tính a*a+ b*b+ c*c nhạp từ bàn phím

Câu 3 viết chương tính x*y/z với x,y,z nhập từ bàn phím 

Câu 4: Viết chương trình nhập vào 3 môn văn toán anh tính trung bình cộng

Câu 5: viết chương trình nhập vào 4 số a,b,c,d sau đó tính trung bình cộng của 4 số đó 

Câu 6: Viết chương trình tính diện tích hình tam giác

Câu 7: tính diện tích chu vi hình tròn (chỉ với ạ cảm ơn mọi người)

Answer 1

Câu 1:

Uses crt;

Var a,b:real;

Begin

Clrscr;

Readln(a);

Readln(b);

Writeln((a+b)/(a-b));

Readln

End.

 

Answer 2

Câu 2:

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Readln(a);

Readln(b);

Readln(c);

Writeln(a*a+b*b+c*c);

Readln

End.

Answer 3

Câu 5:

Uses crt;

Var a,b,c,d:real;

Begin

Clrscr;

Readln(a);

Readln(b);

Readln(c);

Readln(d);

Writeln((a+b+c+d)/4);

Readln

End.

 

Answer 4

Câu 7:

Uses crt;

Var r:real;

Begin

Clrscr;

Writeln('nhập bán kính: ');

Readln(r);

p:=2*r*pi;

s:=r*r*pi;

Writeln('chu vi hình tròn: ',p);

Writeln('diện tích hình tròn: ',s);

Readln

End.