Dùng câu lệnh lặp For... to... do để viết chương trình tính tổng s: 1+5+10+15+...+n
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
H9
HT.Phong (9A5)
CTVHS
6 tháng 3 2023
Uses crt;
var s,n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(n mod 2<>0) then s:=s+i;
writeln(s);
readln;
end.
KH
6 tháng 3 2023
bạn có thể giải thik cho mik vì sao lại là for i:=1 to n do if(n mod 2<>0) then s:=s+i đc ko
cảm ơn bạn nhìu
NH
1
ML
7 tháng 3 2023
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=2; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
19 tháng 3 2023
program TongCacSoChan;
var
n, s, i: integer;
begin
write('Nhap n: ');
readln(n);
s := 0;
i := 2;
while i <= n do
begin
s := s + i;
i := i + 2;
end;
writeln('Tong cac so chan la: ', s);
readln;
end.
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.
TQ
2
ML
15 tháng 3 2023
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/(i*i*i);
write('S = ',s:6:2);
readln
end.
ML
7 tháng 3 2023
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
24 tháng 3 2023
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S la: ', S);
readln;
end.