Cách chèn hình ảnh để minh họa:

- B1: Đưa con trỏ soạn thảo đến vị trí cần chèn hình ảnh.

- B2: Chọn lệnh Insert \(\rightarrow\) Chọn picture \(\rightarrow\) Nháy chọn From File \(\rightarrow\) Xuất hiện hộp thoại Insert picture.

- B3: Chọn hình ảnh cần chèn.

- B4: Nháy nút Insert.

Chúc bạn học tốt na

* Cách chèn hình ảnh để minh họa:

- B1: Đưa con trỏ soạn thảo đến vị trí cần chèn hình ảnh.

- B2: Chọn lệnh Insert Chọn Picture Nháy chọn From File Xuất hiện hộp thoại Insert picture.

- B3: Chọn hình ảnh cần chèn.

- B4: Nháy nút Insert.

uses crt;

var n,i,dem: integer;

tb: real;

A:array[1..1000] of integer;

writeln('Nhap do dai day: '); read(n);

writeln('Nhap cac phan tu cua day: ');

for i:=1 to n do

begin

writeln('a[',i,']='); read(a[i]);

end;

tb:=0;

for i :=1 to n do

begin tb:=tb+a[i]; dem:=dem+1; end;

tb:=tb/dem;

writeln('Gia tri Tb la: ',tb);

readln

end.

var a,b,c:real;

begin

assign(input,'canh-huyen.inp'); reset(input);

assign(output,'canh-huyen.out'); rewrite(output);

read(a,b);

c:=sqr(a*a)+sqr(b*b);

write(c);

end.

Var n,i:integer;

Begin

Write('nhap n:');readln(n);

For i:=1 to n do

Begin

If i mod 2<>0 then write(i,' ');

Inc(dem);

End;

Write(' co tat ca:', dem,' so le');

Readln;

End.