Những câu hỏi liên quan
Lê Thị Như Ngọc
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 23:10

Program HOC24;

var i,n,t: integer;

begin

t:=0; i:=1;

while t<=500 do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.

Bình luận (0)
Yên Đặng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:28

uses crt;

var n,i,t:integer;

begin

n:=0;

t:=0;

repeat

n:=n+2;

t:=t+n;

until t>69;

writeln(n);

writeln(t);

readln;

end.

Bình luận (0)
Lâm Nguyễn Kha
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 2 2021 lúc 19:45

uses crt;

var t,n:integer;

begin

clrscr;

t:=0;

n:=0;

while t<=10 do 

  begin

n:=n+1;

t:=t+n;

end;

writeln(t);

readln;

end.

Bình luận (0)
NTD TV
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:21

uses crt;

var i,t:integer;

begin

clrscr;

i:=1;

t:=0;

repeat

  t:=t+i;

inc(i);

until t>=100;

writeln(t);

readln;

end.

Bình luận (0)
Nguyễn Kim Đan
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2023 lúc 15:37

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if i mod 2=0 then t:=t+i;

write(t);

readln;

end.

Bình luận (0)
Ngọc Trâm
Xem chi tiết
tuan manh
12 tháng 3 2023 lúc 18:22

Bình luận (0)
Cao Ngọc Bảo Quyên
Xem chi tiết
Quỳnh Như 8a4
Xem chi tiết
Kiều Vũ Linh
12 tháng 5 2022 lúc 9:14

Var n,s:integer;

Begin

n:=0;

While s<=1000 do

begin

n:=n+1;

s:=s+n;

End;

Write('Tong dau tien lon hon 1000 la ',s);

Readln;

End.

Bình luận (0)
Huỳnh Kim Ngân
12 tháng 5 2022 lúc 8:42

Tham khảo link: https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cua-n-so-tu-nhien-dau-tien-sao-cho-tong-nho-hon-hoac-bang-1000giup-minh-voi-thu-6-thi-roi.180444032537

Bình luận (0)
Lương Gia Bảo
Xem chi tiết
HT.Phong (9A5)
24 tháng 3 2023 lúc 5:54

Uses crt;

var

begin clrscr;

k:=1;

s:=0;

while (s<700) do begin

k:=k+1

s:=s+k;

end;

writeln(s,' ',k);

readln;

end; 

Bình luận (0)