uses crt;
var i:integer;
begin
clrscr;
i:=10;
while i>=5 do
begin
write(i:4);
i:=i-1;
end;
readln;
end.
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
Bài 1: Viết chương trình cho bài toán sau (sử dụng câu lệnh For...do và While...do)
a) 1+2+3+4+5+6+7+8+9
b) 2+4+6+8+10+12+14
c) 3+5+7+9+11+13+15
6 tháng 4 2023 lúc 21:44
Viết chương trình Pascal nhập vào 1 dãy số nguyên và in ra màn hình khi tổng của chúng < 20. Dùng câu lệnh while…do…
hãy dùng câu lệnh while...do để viết chương trình tính tổng của các số nguyên từ 5 đến 10
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...doCâu 2:Viết chương trình in ra màn hình 100 lần tên emCâu 3:Viết chương trình tính tổng N số tự nhiên đầu tiênCâu 4:Viết chương trình tính tính T1+1/2+...+1/nCâu 5:Vòng lặp sau cho biết kết quả S? S:0;For i:1 to 5 do S :S+2Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:5 to 10 do
Đọc tiếp
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...do
Câu 2:Viết chương trình in ra màn hình 100 lần tên em
Câu 3:Viết chương trình tính tổng N số tự nhiên đầu tiên
Câu 4:Viết chương trình tính tính T=1+1/2+...+1/n
Câu 5:Vòng lặp sau cho biết kết quả S=? S:=0;For i:=1 to 5 do S :=S+2
Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:=5 to 10 do
Viết chương trình tích của 10 số tự nhiên đầu tiên.{dùng while...do..}
P=1.2.3.4.5.6.7.8.9.10
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
giải giúp em ạ
Viết chương trình tính tích: S=7^3*8^3*9^3*....*n^3 Theo hai câu lệnh *While do *For do
Viết chương trình Pascal nhập vào 2 số a, b và in ra màn hình ƯCLN của a, b. Dùng câu lệnh while… do…