Những câu hỏi liên quan
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)
BT
Xem chi tiết
BT
22 tháng 4 2022 lúc 12:41

:))?

Bình luận (0)
NT
Xem chi tiết
TM
12 tháng 3 2023 lúc 18:22

Bình luận (0)
UL
Xem chi tiết
MD
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.

Bình luận (7)
KP
Xem chi tiết
NT
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.

Bình luận (1)
PN
Xem chi tiết
NT
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.

Bình luận (0)
TN
Xem chi tiết
H24
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

Bình luận (3)
YD
Xem chi tiết
NT
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)