uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=15 to 25 do
s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Bài 8. Lặp với số lần chưa biết trước
Các câu hỏi tương tự
viết chương trình pascal nhập vào đầy đủ n số tự nhiên ( n được nhập từ bàn phím) sử dụng lệnh lặp chưa biết trước số lần lặp để tính tổng các số đó và thông báo kết quả ra màn hìnhIn ra màn hình trung bình của cấc số đã cho ở trên
Xem chi tiết
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
Câu 1 viết chương trình tính giá trị biểu thức với x,y là các số nguyên dc nhập từ bàn phím. In kết quả ra màn hình Caau2 viết chương trình vào 3 số nguyên a,b,c.In ra màn hình số lớn nhất trong 3 số đó
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
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 Pascal Cho Nhập N Nguyên , Dương Từ Bàn Phím . In ra màn hình : -Các Ước Của N Không Kể N -Xác Định N Có Phải Là Số Hoàn Hảo -Tất Cả Số Hoàn Hảo Trong Phạm Vi Từ 1-> N
Viết chương trình in ra màn hình sử dụng vòng lặp while để in ra màn hình tổng các số có giá trị lớn hơn 2.000 với n là số tự nhiên lớn hơn 2
viết chương trình nhập 1 dãy số thông báo ra màn tính ra có bao nhiêu số dương, bao nhiêu số âm?