Bài 1: Tính trung bình cộng các số từ M đến N, trong đó M, N nhập từ bàn phím (M<N). Bài 2: Tính tổng bình phương của n số nguyên đầu tiên. n nhập từ bàn phím.

Bài 1 :

uses crt;

var M, N, i, s : integer;

begin

clrscr;

write('Nhap hai so M, N : '); readln(M, N);

S := 0;

if M < N then

begin

for i := M to N do S := S + i;

write('Trung binh : ', (S / (N - M + 1)) : 2 : 2 );

end;

readln

end.

1.

program Tin_hoc;

uses crt;

var i,m,n,tong:integer;

      tb:real;

begin

clrscr;

writeln('Nhap M va N (M<N) ');

write('M=');readln(M);

write('N=');readln(N);

while M>N do 

begin

writeln('Nhap lai:');

write('M=');readln(M);

write('N=');readln(N);

end;

tong:=0;

for i:= M to N do tong:= tong+i;

tb:= tong/(N-M+1);

writeln('trung binh cong cac so tu M den N la: ',tb:0:2);

readln;

end.

2.

program Tin_hoc;

uses crt;

var i,n:longint;

begin

clrscr;

writeln('Nhap so nguyen duong n:');readln(n);

tong:=0;

for i:= 1 to n do tong:= tong + i*i;

writeln('Tong=',tong);

readln;

end.