K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
NC
1
Các câu hỏi dưới đây có thể giống với câu hỏi trên
PT
0
NL
Nguyễn Lê Phước Thịnh
CTVHS
18 tháng 3 2023
a: uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 70 do s:=s+i;
write(s);
readln;
end.
b:
uses crt;
var s,i:integer;
begin
clrscr;
s:=1;
for i:=1 to 80 do
if i mod 2=0 then s:=s+i;
write(s);
readln;
end.
KV
20 tháng 3 2023
Var i,s:integer;
Begin
For i:=1 to 70 do s:=s+i;
Write('S = 1 + 2 + 3 + 4 + 5 + ... + 70 = ',s);
Readln
End.
-------------------
Var i,s:integer;
Begin
s:=1;
For i:=1 to 40 do
s:=s + 2*i;
Write('S = 1 + 2 + 4 + 6 + ... + 80 = ',s);
Readln;
End.








Đáp án D