Program hotrotinhoc;
var i,n: ineger;
s: real;
begin
s:=0;
write('Nhap so nguyen :'); readln(n);
if n<>0 then s:=s+1/n;
while n<>0 do
begin
write('Nhap so nguyen :'); readln(n);
if n<>0 then s:=s+1/n;
end;
write(Tong cac so nghich dao la : ',s);
readln
end.
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 sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
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 biến mảng nhập vào n số nguyên từ bàn phím và in ra màn hình tổng các số chia hết cho 3
Viết chương trình tính tích các số chẵn của số nguyên N nhập từ bàn phím sau đó in kết quả ra màn hình
Viết chương trình nhập vào dãy số tự nhiên. Đếm và in ra màn hình số phần tử chẵn, tính tổng số phần tử chẵn trong n số vừa nhập. (Lưu ý không dùng mảng)
Mọi người ơi, giúp em với ạ
Viết chương trình nhập số tự nhiên n 2 in ra màn hình các số chẵn từ 1 đến n tính tổng số chẵn Vd) N=10;các số chẵn2,4,6,8,10 Tính tổng =2+4+6+8+10
