uses crt;
var i,i1,n:integer;
begin
clrscr;
writeln('Cac so tu nhien tu 1 den 100 la: ');
i:=1;
while i<=100 do
begin
write(i:4);
inc(i);
end;
writeln;
write('Nhap n='); readln(n);
writeln('Cac so tu nhien tu 1 den ',n,' la: ');
i:=1;
while i<=n do
begin
write(i:4);
i:=i+1;
end;
readln;
end.
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Giúp em với còn 1 câu này nữa là em xong bài rồi
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
NHẬP N IN RA CÁC TỔNG CÁC SỐ CHẴN TỪ 1 ĐẾN N ;; SỬ DỤNG CÂU LỆNH WHILE DO
hãy viết chương trình sử dụng lệnh lặp while-do, và for...to...do để tính tổng các số tự nhiên từ 1 đến 10.
Bài 1: Viết chương trình Pascal nhập n (n>0). Xuất ra màn hình:
các số nguyên tố từ 2 đến n và cho biết có bao nhiêu số nguyên tố từ 2 đến n
Lưu ý : Dùng lệnh While...do hoặc Repeat....until
Hãy viết chương trình tính tổng, tích của các số tự nhiên từ 1àN (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
viết chương trình tính tổng các số tự nhiên từ 1 đến N. Với số N là số tự nhiên bất kì do người sử dụng nhập và N > 5 lưu ý: sử dụng câu lệnh lặp For...do
Câu 35: Đoạn lệnh sau đây sẽ cho kết quả là gì?
ketqua := 1; While ketqua<2 do writrln(ketqua);
A. In ra vô hạn số 1 trên một cột B. In ra các số từ 1 đến 10
C. Chương trình báo lỗi D. In ra vô hạn số 1 trên một dòng
Câu 36: Giả sử a:=2; thì sau câu lệnh For i:=1 to 3 do a:=a*a; a nhận giá trị bằng bao nhiêu?
A. 16 B. 256 C. 64 D. 128
