viết chương trình tính tổng phân số chẳn trong phạm vi từ 1->n biết rằng n là số chẳn đc nhập từ bàn phím
Những câu hỏi liên quan
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
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.
Đúng 0
Bình luận (0)
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
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.
Đúng 0
Bình luận (0)
Viết chương trình điếm số chẳn của N số tự nhiên đầu tiên, với N là số tự nhiên nhập từ bàn phím
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
if i mod 2=0 then inc(dem);
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
viết ct nhập 1 dãy số gồm n số từ bàn phím, in ra dãy vừa nhập, in ra số lẻ, chẳn trong dãy, tính tổng các số chẳn và lẻ, tính trung bình cộng các số
uses crt;
var a:array[1..100]of integer;
n,i,t1,t2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln(t1);
writeln(t2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.
Bài 5:
Var a:array:[1..1000] of integer;
i,n,max:integer;
sc, sl:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');rreadlna[i]);
If a[i] mod 2 = 0 then sc:=sc+b[i];
If a[i] mod 2 <> 0 then sl:=sl+a[i];
End;
max:=a[1];
For i:=2 to n do
If a[i] > max then max:=a[i];
Writeln('Tong cac so chan la ',sc);
Writeln('Tong cac so le la ',sl);
write('So lon nhat la ',max);
Readln
End.
Đúng 1
Bình luận (1)
Viết chương trình tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Program bt_3;
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 5 = 0 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng các giá trị là bội của 3 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Program bt_3;
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 3 = 0 then Tong:=Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.
Đúng 1
Bình luận (0)
lập trình nhập vào từ bàn phím số nguyên dương n tính và in ra màng hình tổng các số chẳn từ 1 đến n
#inckude <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%2==0) t=t+i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình tính tổng các giá trị lẻ trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Program bt_3;
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 2 = 1 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.
Đúng 0
Bình luận (0)