Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Huỳnh Đổng Chi
Xem chi tiết
Minh Lệ
6 tháng 4 2023 lúc 22:40

Program HOC24;

var i,s: byte;

begin

s:=0;

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

write('S = ',s);

readln

end.

Linh Nguyễn
Xem chi tiết
Linh Nguyễn
10 tháng 3 2022 lúc 21:36

sao ko ai ngó ngàng gì đến tui hết zậy ;-;

Lan 038_Trịnh Thị
10 tháng 3 2022 lúc 21:38

sao cj

Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 9:39

 

 

Câu 8: C

Câu 9: B

Câu 10: D

Câu 11: A

Câu 12: D

Linh Nguyễn
Xem chi tiết
TV Cuber
10 tháng 3 2022 lúc 21:40

tách ra thì mọi ng mới có động lực

Mạnh=_=
10 tháng 3 2022 lúc 21:41

ét ô ét tiếp à

Trương Mai Vân Thy
10 tháng 3 2022 lúc 21:43

vào phòng học đi Linh 

Lê Thị Khánh Thi
Xem chi tiết
Điệp Hoàng
2 tháng 5 2022 lúc 16:46

D

Tạ Tuấn
Xem chi tiết
Nguyễn Đức Lâm
11 tháng 5 2021 lúc 8:17

D

Nguyễn Lê Phước Thịnh
11 tháng 5 2021 lúc 11:00

Chọn D

Vũ khang
Xem chi tiết
Minh Lệ
9 tháng 5 2023 lúc 18:55

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap n: '); readln(n);

s:=0;

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

write('S = ',s);

readln

end.

Trinhdiem
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:00

Câu 1: B

Câu 2: A

SuperMeo
Xem chi tiết
Trungnghia
10 tháng 4 2021 lúc 16:20

a, Với lệnh For..do:
Var i:integer;
          S:real; (Hoặc S:longint);
       Begin
    S:=0;
       For i:=1 to 1980 do S:=S+i;
      Writeln('Vay tong cua S=',S);
     Readln
    End.
*In đậm: Bạn có thể chọn 1/2 cách với S:real hay S: longint. Chỉ là nếu bạn muốn nhìn dễ hiểu hơn thì tùy bạn. H/ảnh minh họa như dưới đây :D (Đã thử và áp dụng cách này với For...do)
undefinedundefined

b, Với lệnh While...do
Var i:integer;
      S:real;
Begin
  S:=0; i:=0;
While i<=1980 do
  Begin
     S:= S+i;
       i:= i+1;
End;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Cũng có thể dùng S:longint (70-80% đúng) thay vì S:real (100% đúng). Nhưng khuyến cáo nên sử dụng S:real (Đã thử và áp dụng tương đối chính xác với While...do)
Good luck for you!!! :D

 

Nguyễn Lê Phước Thịnh
10 tháng 4 2021 lúc 20:14

a) uses crt;

var s,i:longint;

begin

clrscr;

s:=0;

for i:=1 to 1980 do 

  s:=s+i;

writeln(s);

readln;

end.

Nguyễn Lê Phước Thịnh
10 tháng 4 2021 lúc 20:14

b) uses crt;

var s,i:longint;

begin

clrscr;

s:=0;

i:=1;

while i<=1980 do 

  begin

s:=s+i;

i:=i+1;

end;

writeln(s);

readln;

end.

Trí So Sad
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:38

a)

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+i;

writeln(s);

readln;

end.

Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:38

b) 

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.