Những câu hỏi liên quan
QA
Xem chi tiết
LN
Xem chi tiết
ML
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)
YH
Xem chi tiết
NT
11 tháng 3 2022 lúc 15:46

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=0;

while i<=50 do 

begin

i:=i+2;

t:=t+i;

end;

writeln(t);

readln;

end.

Bình luận (0)
Q8
Xem chi tiết
KL
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)
HN
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)
LK
Xem chi tiết
NT
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)
NT
Xem chi tiết
NT
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)
XM
Xem chi tiết
NT
1 tháng 2 2023 lúc 8:21

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do

if i mod 2=0 then inc(dem);

writeln(dem);

readln;

end.

Bình luận (0)
LB
Xem chi tiết
BT
30 tháng 12 2020 lúc 19:02

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

Bình luận (2)
LB
Xem chi tiết
HN
11 tháng 11 2016 lúc 18:51

1.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

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

writeln ('tong cua s=',s);

readln

end.

2.

program tinhtong;

uses crt;

var i,L,s:integer;

begin

write('nhap gia tri L='); readln(L);

s:=0;

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

writeln('tong cua s=',s);

readln

end.

 

 

Bình luận (1)