Viết 1 công thức nhập một số nguyên N trên bàn phím yêu cầu a) xét tính chẳn lẽ của N b) tính tổng các số chia hết cho 5 trong phạm vi từ 1 tới 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
14 tháng 12 2022
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
t:=0;
for i:=1 to n do
if i mod 5=0 then t:=t+i;
writeln(t);
readln;
end.
14 tháng 3 2023
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
write(t);
readln;
end.
VC
25 tháng 2 2022
Hãy viết chương trình Pascal thực hiện các công việc sau (đặt tên program tên mình)
21 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
if (i%3==0) t=t+i;
cout<<t;
return 0;
}
18 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long m,n,i,t;
int main()
{
cin>>m>>n;
t=0;
for (i=m; i<=n; i++)
if (i%15==0) t=t+i;
cout<<t;
return 0;
}
21 tháng 3 2021
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
6 tháng 4 2022
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
if (i%3==0) t+=i;
cout<<t;
return 0;
}
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
t:=0;
for i:=1 to n do
if i mod 5=0 then t:=t+i;
writeln(t);
readln;
end.