1. Viết chương trình để tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại?
2. Viết chương trình nhập điểm kiểm tra học kỳ môn Tin học cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím (Sử dụng biến mảng)
1)
Var i, T: longint;
Begin
T:=0; i:=0;
While T<=100 do begini:=i+1;
T:= T+i;
End;
Writeln('Tong la ',T);
End.
2)
Var a: array[1..100] or real;
i,n: longint;
Begin
Readln(n);
Readln(a[i]);
For i:=1 to n do begin writeln('Diem la',i,'=',a[i]:8:2);
End;
Readln;
End.
- Tớ chưa chạy thử nên không biết đã đúng chưa. Cậu kiểm tra lại nhé!
2.
Program trung_binh;
Uses crt;
Var n, i : integer;
Diem : array[1..50] of real;
Begin
Clrscr;
Write(‘Nhap so luong hoc sinh N = ‘); Readln(n);
Writeln(‘Nhap diem cho tung hoc sinh’);
For i := 1 to n do
Begin
Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]);
End;
For i : = 1 to n do
Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]);
Readln;
End.