Nhập số nguyên dương N(N<=100).viết chương trình tính tổng các số chia hết cho 5 trong phạm vi của N và lưu hay ghi trong tệp 'tong5.Txt' sao cho dòng đầu ghi số nguyên N dòng 2 ghi kết quả vừa tính đc
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
17 tháng 2 2023
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100];
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
for (int i=1; i<=n; i++)
cout<<A[i]<<" ";
return 0;
}
24 tháng 12 2022
Cau 1:
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
HT
1
24 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
long long n,x;
int main()
{
cin>>n;
x=sqrt(n);
if (x*x==n) cout<<n<<" la so chinh phuong";
else cout<<n<<" khong la so chinh phuong";
return 0;
}
21 tháng 3 2023
n = int(input("Nhập vào một số nguyên dương: "))
if n < 0:
print(n, "là số âm")
elif n > 0:
print(n, "là số dương")
else:
print(n, "là số 0")
BD
2
KV
9 tháng 3 2023
Var i,n,s:integer;
Begin
While n<=0 do
Write('N = ');readln(n);
For i:=1 to n do
If n mod i = 0 then s:=s+i;
Write('Tong cac uoc cua ',n,' la ',s);
Readln;
End.
9 tháng 3 2023
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,t=0;
cin>>n;
for (int i=1; i<=n; i++)
if (n%i==0) t+=i;
cout<<t;
return 0;
}
5 tháng 3 2021
uses crt;
var a:array[1..100]of integer;
i,n:integer;
s:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=1;
for i:=1 to n do
s:=s*a[i];
writeln(s:0:0);
readln;
end.
GB
7 tháng 5 2023
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
31 tháng 3 2021
Bạn ơi, đề bài yêu cầu gì vậy?
P/s: Bạn có thể ghi yêu cầu đề bài dưới phần bình luận được không?
a)
PROGRAM BAI1a;
VAR N, Tle, Tchan: integer;
BEGIN
Write ('Nhap N =');
Readln (N);
If (N mod 2) = 0 Then
Tle := N*((N - 2)/2 + 1)/2;
Tchan := (N + 2)*((N - 2)/2 + 1)/2;
If (N mod 2) = 1 Then
Tle := (N + 1)*((N-1)/2 +1)/2;
Tchan := (N + 1)*((N - 3)/2 + 1)/2;
WRITELN ('Sle =', Sle, 'Schan =', Schan);
READLN;
END.