Program Trung_Binh_Cong;

uses crt;

var a,b: real;

begin

clrscr;

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

write('nhap so b ='); realdn(b);

writeln('Trung binh cong cua 2 so ',a,' va ',b,' = ' , a*b/2);

readln;

end.

hoặc có thể là trường bạn không sử dụng phần mềm smas ///

Vì giáo viên của bạn chưa nhập điểm nên.đợi bao giờ giáo viên bạn nhập điểm lên thì mới xem được

1+2+3+4+5+6+7+8+9+10=\(\frac{10.\left(10+1\right)}{2}\)55

Tick nha

xin hỏi bạn đề cho tam giác gì ? (vuông,cân,thường,đều,..).

program tinhtong;

uses crt;

var x,y: real;

begin

clrscr;

write('nhap so x va y :'); readln(x,y);

writeln('tong =' ,x*y);

readln

end.

nhập tên rồi in ra màn hình:

Mã chương trình.

program nhap_ten;

uses crt;

var n: integer;

begin

clrscr;

write('nhap ho ten cua ban :'); readln(n);

writeln('ho ten cua ban la :' ,n);

readln

end.

1 Ta có

10^2010=10000...0000(2010 số 0)+8

=100000...0000(2009 số 0)8

=(1+0+8)=9 mà 9 chi hết cho 9

suy ra 10^2010+8 chia hết cho 9

nhập tên rồi in ra hay là nhập xong tên là thoát khỏi màn hình ?

Proagram bai1;

uses crt;

var n,i: integer;

x: real;

begin

clrscr;

write('nhap so n ='); readln(n);

x:=0;

for i:= 1 to n do

x:=x+i;

writeln('tong =' , x); readln

end.