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
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.

Vũ Duy Hoàng
Xem chi tiết
Xyz OLM
24 tháng 5 2021 lúc 17:50

Program Tinh_tong ; 

Uses Crt;

Var i ,S: integer ; 

Begin

S: = 0 i;=0 ;

While  < 51 do begin 

                                       i : = i + 1 ;  

                                       S: = S + i ;

                                   end ;

 Write ('Tong la',S);

End. 

Khách vãng lai đã xóa
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

:))?

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

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