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
Lê Trần Bội Bội
Xem chi tiết
Bao Truong
30 tháng 12 2020 lúc 19:02

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

Lê Trần Bội Bội
Xem chi tiết
huỳnh thị ngọc ngân
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ùi Văn Tho
Xem chi tiết
Bùi Văn Tho
22 tháng 4 2022 lúc 12:41

:))?

Ngọc Trâm
Xem chi tiết
tuan manh
12 tháng 3 2023 lúc 18:22

Unh hello linh
Xem chi tiết
MY PHẠM THỊ DIÊMx
18 tháng 3 2022 lúc 5:41

var i,s:integer;

begin

s:=0;

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

write('Tong:', s);

readln;

end.

Klmt ProLayer
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:27

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do 

  t:=t+i;

writeln(t);

readln;

end.

Phuong Nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 2 2021 lúc 9:17

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 20 do 

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

writeln('Tong cac so chan trong khoang 20 so tu nhien dau tien la: ',s);

readln;

end.

Tiến Lê nhật
Xem chi tiết
chuche
28 tháng 12 2021 lúc 15:29

tk:

https://hoc247.net/hoi-dap/tin-hoc-8/viet-chuong-trinh-tinh-tong-100-so-tu-nhien-dau-tien-faq247722.html

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.