Viết chương trình tính tổng A=1+1/5+1/10+1/15+⋯+1/n với n chia hết cho 5,nguyên dương nhập vào từ bàn phím
Viết với vòng lặp for
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
NB
26 tháng 4 2023
program Tong;
var
n: integer;
i: integer;
sum: real;
begin
write('Nhap so nguyen duong n (chia het cho 5): ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 5 = 1 then
sum := sum + 1/i;
end;
writeln('Tong A la: ', sum);
readln;
end.
6 tháng 3 2023
n = int(input('Nhập số n: '))
sum = 0
i = 1
while i <= n:
if i % 2 == 0:
sum += i
print(i, end=' ')
i += 1
print()
print('Tổng các số chẵn từ 1 đến n là:', sum)
VT
6 tháng 3 2023
n = int(input('Nhập số n: '))
sum = 0
i = 1
while i <= n:
if i % 2 == 0:
sum += i
print(i, end=' ')
i += 1
print()
print('Tổng các số chẵn từ 1 đến n là:', sum)
3 tháng 2 2021
Câu 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Câu 3:
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang nhan ',i,' la: ');
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
delay(200);
end;
readln;
end.
23 tháng 2 2021
Chương trình đầy đủ:
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
9 tháng 3 2023
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,t=0;
cin>>n;
for (int i=1; i<=n; i++)
if (i%6==0) t+=i;
cout<<t;
return 0;
}
1 tháng 5 2021
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
28 tháng 2 2023
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
4 tháng 4 2023
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
var s:real;
i,n,t:integer;
begin
repeat
write('Nhap n > 0 va n chia het cho 5 ');readln(n);
until (n > 0) and (n mod 5 = 0);
t:=round(n/5);
s:=1;
for i:=1 to t do
s:=s+1/(5*i);
write('A = ',s:10:2);
readln
end.