NN
0
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
11 tháng 11 2016
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.
BV
1
NT
1
UH
1
18 tháng 3 2022
var i,s:integer;
begin
s:=0;
for i:=1 to 50 do s:=s+i;
write('Tong:', s);
readln;
end.
KP
1
5 tháng 5 2021
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
t:=t+i;
writeln(t);
readln;
end.
PN
1
7 tháng 2 2021
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.
TL
1
C
28 tháng 12 2021
tk:
https://hoc247.net/hoi-dap/tin-hoc-8/viet-chuong-trinh-tinh-tong-100-so-tu-nhien-dau-tien-faq247722.html
YD
1
30 tháng 3 2022
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.