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 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 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
0 bình luận về “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”
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);
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.