Câu 1:

uses crt;
var i,s:longint;
begin
       clrscr;
       s:=0;i:=1;
       while s<=5000 do 
              begin
                     if i mod 2=1 then inc(s,i);
                     inc(i);
              end;
       write(s);
       readln;
end.

Câu 2:

uses crt;
var a:array[1..1000000] of real;
       s:extended;
       n,i:longint;
begin
       clrscr;
       write('Nhap so luong hoc sinh: '); readln(n);
       for i:=1 to n do 
              begin
                     write('Nhap diem hoc sinh thu ',i,': '); readln(a[i]);
                     s:=s+a[i];
              end;
       writeln('Diem trung binh: ',s/n:0:2);
       readln;
end.

Câu 1:

Uses crt;

Var S, i: longint;

BEGIN

Clrscr;

S:=0;

i:=0;

Repeat

Inc(i);

If i mod 2 = 0 then S:=S+i;

Until S>=5000

Readln;

Write('Tong la: ',S);

END.

Câu 2:

Uses crt;

Var A: ARRAY[1..100] OF REAL;

      i, n: integer;

      S: real;

BEGIN

Clrscr;

Write('Nhap so hoc sinh: '); Readln(n);

For i:=1 to n do

Begin

Write('Nhap diem TB mon cua hoc sinh thu ',i,': ');

Readln(A[i]);

End;

For i:=1 to n do S:=S+A[i];

S:=S/n;

Writeln('TB: ',S:0:4)

Readln;

END.

Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!