program tin_hoc;
uses crt;
var n,dem,t: integer; s:real;
begin
clrscr;
write('------------tinh trung binh cong,nhap 0 de ket thuc------------');
write('Nhap so tu ban phim :'); readln(n);
t:=n;dem:=1;
while n<>0 do
Begin
write('Nhap so tu ban phim:'); readln(n);
t:=t+n;dem:=dem+1;
end;
s:= t /(dem-1);
write(s);
readln
end.
mọi người giải dùm em câu này ạ. em xin cảm ơn.
Tính tổng của các số được nhập từ bàn phím. Nhập số 0 để kết thúc quá trình nhập.dùng lệnh while... do...
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0 . Tính tổng các số chẵn , tổng câc số lẻ đã nhập rồi in kết quả ra màn hình
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
Viết chương trình sử dụng lệnh lặp while....do... để đếm các số tự nhiên chia hết cho 5 từ 1 -> n được nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+3+5+...+n. N là số nguyên nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
