uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=1 to 50 do
s:=s+i;
writeln('Tong cua 50 so tu nhien la: ',s);
readln;
end.
1.Cho đoạn chương trình sau :
S:= 0 ; n:= 0 While S <= 7 do
begin n:= n+1; S:= S+n ; end ;
a)Tính số vòng lặp.
b)Sau khi thực hiện chương trình giá trị biến S bằng bao nhiêu?
viết chương trình nhập số nguyên dương n. Nhập dãy gồm n số nguyên. Hãy tính tổng các số nằm ở vị trí chẵn trong dãy ?
Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị S bằng bao nhiêu? Viết chương trình bằng Pascal để mô tả thuật toán đó.
B1: S<- 20, n<- 1;
B2: Nếu S>=5, chuyển B4.
B3: n<- N+1, S,<- S-n và quay lại B2.
B4: Thông báo S và kết thúc thuật toán
Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị S bằng bao nhiêu? Viết chương trình bằng Pascal để mô tả thuật toán đó.
B1: S<-0,n<-2;
B2: Nếu S>=5, chuyển B4.
B3: S<-S+n và quay lại B2.
B4: Thông báo S và kết thúc thuật toán
Cần gấp!!!
Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị S bằng bao nhiêu? Viết chương trình bằng Pascal để mô tả thuật toán đó.
B1: S<-0,n<-2;
B2: Nếu S>=5, chuyển B4.
B3: S<-S+n và quay lại B2.
B4: Thông báo S và kết thúc thuật toán
Cần gấp!!!!
Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị S bằng bao nhiêu? Viết chương trình bằng Pascal để mô tả thuật toán đó.
B1: S<- 20, n<- 1;
B2: Nếu S>=5, chuyển B4.
B3: n<- N+1, S,<- S-n và quay lại B2.
B4: Thông báo S và kết thúc thuật toán
Cần gấp!!!
Câu 1 :Đoạn lệnh sau đây làm nhiệm vụ gì ?
For := 1 to 5 do
Write ('A')
Câu 2 : Tìm lỗi sai trong chương trình sau :
Var : i : real
Begin :
For i := 1 to 100 do
End
Câu 3 : Viết chương trình in ra màn hình tổng của n số tự nhiên đầu tiên ( N nhập từ bàn phím )
#Helpme ?
viết chương trình tính tổng 100 số tự nhiên chẵn đầu tiên.In ra màn hình tổng đó.
GIÚP MÌNH NHANH VS!!!!!!!!
2)Nêu cú pháp cùng tính chất của các thành phần trong câu lệnh lặp với số lần biết trước, cho ví dụ?
