cho đoạn chương trình s:=5
for i:=1 to 7 do if i mod 2=0 then s:=s+i else i:=i+1
Yêu cầu:
Viết tiếp câu lệnh để chương trình hoàn thiện
Cho biết kết thúc đoạn chương trình s,i lần lượt nhận giá trị là bao nhiêu?
Những câu hỏi liên quan
Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF i mod 2 = 1 THEN S := S + i ;
Sau khi thực hiện, S có giá trị?
A. 3
B. 5
C. 25
D. 30
Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF (i mod 3=0) or (i mod 5=0) THEN S := S + i ;
Sau khi thực hiện, S có giá trị?
A. 0
B. 5
C. 25
D. 33
Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF (i mod 3=0) or (i mod 5=0) THEN S := S + 1 ;
Sau khi thực hiện, S có giá trị?
A. 0
B. 5
C. 25
D. 33
Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF i mod 2 = 1 THEN S := S + 1 ;
Sau khi thực hiện, S có giá trị?
A. 3
B. 5
C. 25
D. 30
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
S:=0;
FOR i:=1 to 15 DO
IF a[i] mod 2 = 0 THEN
S:=S+a[i];
writeln(‘S = ’,S);
Câu 1: Sau khi thực hiện chưng trình pascal sau đây, biến S có giá trị là bao nhiêu ? Var x : integer;
Begin
S:=0
For i:=1 to 10 do
If ( i mod 2) = 0 then S:=S+i;
Readln;
End
A.10 B. 20 C. 30 D. 40
Câu 2: Khi thực hiện đoạn chương trình sau, kết quả trên màn hình là:
So:=1;
While so<10 do Begin
Write (so : %);
So:= So +2;
End.
mảng a là 6 8 5 2 7.Sau khi đoạn chương trình sau được thực hiện,giá trị của S bằng bao nhiêu?s:=0;n:=0;for i:=2 to 5 do while (a[i] mod i0) do i:= i+1; if a[i]=n then writeln a[i];
cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:0; For i:2 to 8 do S :S+i b) S:0; n:1;For i:1 to 6 do Begin S:S+n; n:n+i; end;c) S:2;For i:1 to 10 do If(i mod 2)0 then S:S+i;d) S:0; i: 1,5;While S7 do S:S+i;e) S:0; i:1;While i9 do Begin S:S+i; i:i+2; End;f) S:2; i:1;While i 10 doBeginIf (i mod 2) then S:S+i; i:i+1;End;
Đọc tiếp
cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:=0;
For i:=2 to 8 do S :=S+i
b) S:=0; n:=1;
For i:=1 to 6 do
Begin
S:=S+n;
n:=n+i;
end;
c) S:=2;
For i:=1 to 10 do
If(i mod 2)=0 then S:=S+i;
d) S:=0; i:= 1,5;
While S<7 do S:=S+i;
e) S:=0; i:=1;
While i<9 do
Begin
S:=S+i;
i:=i+2;
End;
f) S:=2; i:=1;
While i<= 10 do
Begin
If (i mod 2) then S:=S+i;
i:=i+1;
End;
ai giải thích giúp mình câu này với ạgiả sử x, i là hai biến kiểu integer. Xét đoạn chương trình saux:2; For i:1 to 6 do if i mod 30 then x:x*i else x:x+i; Writeln (x);Đoạn chương trình trên sẽ in ra màn hình giá trị của x là
Đọc tiếp
ai giải thích giúp mình câu này với ạ
giả sử x, i là hai biến kiểu integer. Xét đoạn chương trình sau
x:=2; For i:=1 to 6 do if i mod 3=0 then x:=x*i else x:=x+i; Writeln (x);
Đoạn chương trình trên sẽ in ra màn hình giá trị của x là
