Tính tổng các số từ 1 đến 50 bằng lệnh lặp while...do.
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.
Những câu hỏi liên quan
KV
17 tháng 3 2022
* Sử dụng For ... do
Var i,s:integer;
Begin
For i:=1 to 10 do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
* Sử dụng While ... do
Var i,s:integer;
Begin
i:=1;
While i<=10 do
Begin
s:=s+i;
i:=i+1;
End;
Write('tong la ',s);
Readln;
End.
HD
1
1 tháng 5 2018
Program tinhtong;
var: i,s:=longint;
Begin
i:=-1;
While i<50 do
Begin
i:=i+2;
S:=S+i;
End;
readln;
End.
3 tháng 3 2021
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s:0:0);
readln;
end.
4 tháng 4 2023
1).
program oken;
uses crt;
var n,i: integer;
gt: qword;
begin
write('nhap n: '): readln(n);
gt:=1;
for i:=1 to n do gt:=gt*i;
writeln('N!=',gt);
readln;
end.
2).
program tongcacsole;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 203 do
if i mod 2 = 1 then t:=t+i;
write(t);
end.
3).
program tongcacsochan;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 20 do
if i mod 2 = 0 then t:=t+i;
write(t);
end.
H9
HT.Phong (9A5)
CTVHS
10 tháng 3 2023
Program HOC24;
Uses crt;
var i,j: integer;
j:=1; i:=0;
while(j<=50) do
begin
j:=j+1;
if(j mod 2=0) then i:=i+j;
end;
writeln(i);
readln;
end.
TL
3
27 tháng 2 2021
T:=0;
for i:= 1 to 20 do
If i mod 2 = 1 then tong:=i + T;
TL
4
27 tháng 2 2021
begin
A:=0;
for i:=1 to 20 do A:= A+i*2;
writeln (' tong =',A);
readln;
end.
Program tinhtong;
var: i,s=longint;
Begin
i:=-1;
While i<50 do
Begin
i:=i+2;
S:-S+i;
End:
readln;
End.
Program HOC24;
var i,t: integer;
begin
i:=0; t:=0;
while i<=50 do
begin
i:=i+1;
t:=t+i;
end;
write('Tong cac so tu 1 den 50 la: ',T);
readln
end.