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.

25 tháng 1

1C 2D

25 tháng 1

1B 2D

20 tháng 9 2025

Chữ nhạt quá bạn ơi.

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.

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.

20 tháng 9 2025

ngáo à