uses crt;

var a:array[1..100]of real;

n,i:integer;

kq:real;

begin

clrscr;

write('Nhap so ban hoc sinh:'); readln(n);

for i:=1 to n do 

  begin

write('Nhap can nang cua ban thu ',i,'='); readln(a[i]);

end;

kq:=0;

for i:=1 to n do 

  kq:=kq+a[i];

writeln('Can nang trung binh cua lop la: ',kq/n:4:2);

readln;

end.

uses crt;

var diem:real;

begin

clrscr;

write('Nhap diem='); readln(diem);

writeln('Diem cua ban do la: ',diem:4:2);

readln;

end.

uses crt;

var a,b:integer;

begin

clrscr;

repeat

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

write('Nhap b='); readln(b);

until (a>0) and (b>0);

if a>b then writeln(a,' la so lon hon')

else if a<b then writeln(b,' la so lon hon')

else writeln('Hai so bang nhau');

readln;

end.

1: 

max:=a;

if max<b then max:=b;

2: 

min:=a;

if min>b then min:=b;

3: if (x=sqr(a)+sqr(b)) and (a<0) then writeln(x);

if (x=sqrt(b)+sqrt(a)) and (a>0) then writeln(x);

Anh ơi giúp e

Mk nghĩ B nha

B . CS THỂ

uses crt; var a,b:array[1..100000]of integer;     i,n,kt,j,dem,x,y,kt1:integer;     st,st1:string; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do   begin      write('A[',i,']='); readln(a[i]);   end; dem:=0; for i:=1 to n do   if a[i]>1 then      begin         kt:=0;         for j:=2 to a[i]-1 do           if a[i] mod j=0 then              begin                 kt:=1;                 break;              end;         if kt=0 then            begin               inc(dem);               b[dem]:=a[i];            end;      end; for i:=1 to dem do   begin      str(a[i],st);      st1:='';      for j:=length(st) downto 1 do        st1:=st1+st[j];      val(st1,x,y);      kt1:=0;      for j:=2 to x-1 do        if x mod j=0 then           begin              kt1:=1;              break;           end;      if kt1=0 then write(a[i]:4);   end; readln; end.

uses crt; var a,b:array[1..100000]of integer;     i,n,kt,j,dem,x,y,kt1:integer;     st,st1:string; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do   begin      write('A[',i,']='); readln(a[i]);   end; dem:=0; for i:=1 to n do   if a[i]>1 then      begin         kt:=0;         for j:=2 to a[i]-1 do           if a[i] mod j=0 then              begin                 kt:=1;                 break;              end;         if kt=0 then            begin               inc(dem);               b[dem]:=a[i];            end;      end; for i:=1 to dem do   begin      str(a[i],st);      st1:='';      for j:=length(st) downto 1 do        st1:=st1+st[j];      val(st1,x,y);      kt1:=0;      for j:=2 to x-1 do        if x mod j=0 then           begin              kt1:=1;              break;           end;      if kt1=0 then write(a[i]:4);   end; readln; end.

Hình như là chưa xóa màn hình đó bạn

Nếu bạn muốn xóa màn hình thì bạn nhập lệnh clrscr;

uses crt;

var b:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

min:=b[1];

for i:=1 to n do 

  if min>b[i] then min:=b[i];

writeln('So nho nhat la: ',b[i]);

readln;

end.

Số chính phương là một số nguyên có căn bậc hai là một số nguyên (ví dụ: 9 là số chính phương vì =3). Viết chương trình tìm, đếm và tính tổng các số chính phương có trong dãy số nguyên dương gồm N phần tử A1, A2, …, AN.

Dữ liệu vào: Nhập từ bàn phím.

Kết quả ra: Xuất ra màn hình gồm 3 dòng:

- Dòng 1 ghi các số chính phương của dãy giữ nguyên thứ tự xuất hiện (mỗi số cách nhau một dấu cách).

- Dòng 2 ghi số lượng số chính phương trong dãy.

- Dòng 3 ghi tổng của các số chính phương trong dãy.

Ví dụ:

Nhập từ bàn phím

Xuất ra màn hình

 N = 7

11 4 100 5 25 36 10

4 100 25 36

4

165

Bài 3: Viết chương trình phân tích một số nguyên dương ra thừa số nguyên tố.

Dữ liệu vào: Nhập từ bàn phím số nguyên dương N

Kết quả ra: Xuất ra màn hình

Ví dụ:

Nhập từ bàn phím

Xuất ra màn hình

100

100│2

  50│2

  25│5

    5│5

    1│

97

LA SO NGUYEN TO

Bài 4: TỔNG CÁC SỐ FIBONACI

         Dãy Fibonaci là dãy gồm các số: 1, 1, 2, 3, 5, 8, .... được xác định bởi công thức sau:

                        F₁=1, F₂=1, F_i=F_i-1+F_i-2 với i>2.

         Em hãy biểu diễn một số tự nhiên N thành tổng của ít nhất các số Fibonaci khác nhau.

         Dữ liệu vào: Nhập từ bàn phím số N (N ≤ 2000000000)

         Dữ liệu ra: Xuất ra màn hình

            Ví dụ:

Nhập từ bàn phím

Xuất ra màn hình

129

129 = 89 + 34 + 5 + 1

Nhập từ bàn phím

Xuất ra màn hình

8

8 = 8

Bài 5: Giải và biện luận bất phương trình dạng ax+b>=0