Tin học 4 Bài tập pascal

[SamNguyenxnnh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1/ Để tính tích S= 1 bình phương * 2 bình phương * 3 bình phương ..... n bình phương, ta sử dụng lệnh nào?
2/ Cho đoạn CT
s:=0;
for i:=3 to 8 do s:=s+i;
3/ Số lần lặp trong câu for i:=2 to 27 do i:= i+5 là bao nhiêu lần?
4/ Sửa lỗi sai:
A. While i=6 do x:=x+2
B. X:=7; while x:=7 do x:=x+3;
C. s:=0; n:=0; while s<=10 do n:=n+1; s:=s+n;
Mình chưa hiểu câu 1 và 4 lắm, các bạn giúp mình với!

 

[Trâm Nguyễn Thị Ngọc]

Cau 1:

Var
 n,i,s:integer;
Begin
 readln(n);
 For i:=1 to n do
 s:=s+i*i;
write(s);
readln
End.

 

[0toanđnn]

Câu 4 a) I ban đầu bằng bao nhiêu vậy bạn. Mình nhìn vào vẫn chưa biết sai chỗ nào

4
b) Sửa:
x:=7;
while x=7 do x:=x+3;
c) Sửa:
s:=0;
n:=0;
while s<=10 do
Begin
n:=n+1;
s:=s+n;
End;

 

[nguyen tran thanh nha]

4 a) lỗi lặp vô hạn do i luôn không đổi sửa:
i:=6
while i=6 do i:=i+2;