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
huyokkkkk
Xem chi tiết
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.

Thuyan Kaluli
Xem chi tiết
nguyenhoang
Xem chi tiết
Eva Daring
Xem chi tiết
Hương Đào Thị
Xem chi tiết
Hương Đào Thị
21 tháng 2 2022 lúc 17:05

giúp mình với

 

Tryechun🥶
21 tháng 2 2022 lúc 17:58

tham khảo 

Program HOC24;

var n: byte;

begin

n:=0;

while n<50-1 do n:=n+1;

write('N=',N); 

readln

end.

Minh Lệ
21 tháng 2 2022 lúc 17:58

Ở đây b nhé: Câu trả lời

Trương Đại Phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:29

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

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

s:=1;

i:=1;

while i<=n do 

  begin

s:=s*i;

i:=i+1;

end;

writeln(s:0:0);

readln;

end.

Vy Tường_8a2
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 4 2022 lúc 18:30

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i*i;

end;

writeln(s);

readln;

end.

Nông Thủy Tiên
Xem chi tiết