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.

16 tháng 3 2023

Program HOC24;

var S,n: integer;

begin

s:=1; n:=0;

while s<10 do

begin

n:=n+2;

s:=s+n;

end;

write('S= ' ,s);

readln

end.

a: n=10

b: uses crt;

var i,s,n:integer;

begin

clrscr;

s:=0; 

for i:=1 to 4 do s:=s+i;

write(s);

readln;

end.

12 tháng 9 2018

Đáp án B

13 tháng 10 2017

Đáp án B

8 tháng 12 2017

Đáp án A

1 tháng 5 2019

Đáp án B

30 tháng 11 2018

Đáp án A

28 tháng 4 2017

Đáp án A

26 tháng 4 2019

Đáp án A