Câu 1:Viết chương trình tính: S=2+4+6+...+n
Câu 2:Viết chương trình tính: S+1+(1/2)+(1/3)+...(1/n)
Câu 3:Viết chương trình tính trung bình cộng của n số tự nhiên bất kỳ nhập từ bàn phím.
Giúp mik với nhé các bạn, thanks nhiều ạ!
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 3:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
viết chương trình tính tổng S= 1+2+3+...+n. tính theo câu lệnh while, biết n là số nguyên dương nhập từ bàn phím. Chương trình C++
int main()
{
int n;
long s;
s=0;
i=1;
printf("\nSo n la: ");
scanf("%d",&n);
for(int i=1; i<=n; i++)
{
s=s+i;
}
printf("\nTổng %d là %ld: ", n, s);
}
Câu 1. Viết chương trình tính tổng các số lẻ từ 1 đến n ( n nhập từ bàn phím).
Câu 2. Viết chương trình tính tổng các số chẵn từ 1 đến n ( n nhập từ bàn phím).
help me, pls
Câu 1:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
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.
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.
Câu 1 : Viết chương trình ( tính tổng các số nguyên tử từ 1 đến 100. Câu 2: Viết chương trình V tính n!(n là số nguyên nhập từ bàn phím)?
Cau 1:
var i,dem:integer;
function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
bo:=true;
for i:=2 to n-1 do
if n mod i=0 then bo:=false;
if n>1 then ngto:=bo else ngto:=false;
end;
begin
for i:=2 to 100 do
if ngto(i) then dem:=dem+i;
write(dem);
readln;
end.
Cau 2:
var i,dem,n:longint;
begin
read(n);
dem:=1;
for i:=1 to n do
dem:=dem*i;
write(dem);
readln;
end.
Tin học 8
Câu 2: Viết chương trình tính tích 2 số nguyên được nhập từ bàn phím. Câu 3: Viết chương trình tính chu vi P, diện tích S của hình vuông, biết độ dài cạnh a = 8. In kết quả ra màn hình. Câu 4: Viết chương trình tính trung bình cộng của ba số. (Cho biết: ba số đó là a,b,c được nhập từ bàn phím). Câu 5: Viết chương trình tính tiền hóa đơn mua một món hàng, biết phí ship của hóa đơn là 10.000đ và công thức tính tiền là: Thành tiền = đơn giá * số lượng + phí dịch vụ Câu 6: An và Bình được phân công đi mua quà cho lớp nhân dịp tết Trung thu. Hai bạn chọn mua vở với giá 5000 đồng/ quyển và bút bi với giá 3000 đồng/ cây. Em hãy viết chương trình tính số tiền 2 bạn phải trả khi mua x quyển vở và y cây bút bi.(số lượng quyển vở là x, số lượng bút bi là y được nhập từ bàn phím). Cảm ơn nhiều
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a*b;
return 0;
}
Câu 1 : viết chương trình tính tổng các số chẵn với n được nhập từ bàn phím ?
Câu 2 : viết chương trình tính tổng các số lẻ với n được nhập từ bàn phím ?
Câu 1:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 2 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);
readln;
end.
Câu 2:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);
readln;
end.
1. Viết chương trình tính tích N=1*2*3*...*n (với n được nhập từ bàn phím)
2. Viết chương trình tính tổng A=1/1*3+1/2*4+1/3*5+...+1/n*(n+2)
3. Viết chương trình tính tổng số lẻ có trong dãy từ 0->n (n được nhập từ bàn phím)
4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
6. Viết chương trình nhập số nguyên n. Tìm và đưa ra màn hình các ước của n.
7. Viết chương trình in ra màn hình các bội của n ( n được nhập từ bàn phím)
8. Viết chương trình tính tổng S=1/1+1/2+1/3+...+1/n (n được nhập từ bàn phím)
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
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;
write('S= ',s:5:2);
readln
end.
Câu 1: viết chương trình tính (a+b)/(a-b) nhập từ bàn phím
câu 2 viết chương trình tính a*a+ b*b+ c*c nhạp từ bàn phím
Câu 3 viết chương tính x*y/z với x,y,z nhập từ bàn phím
Câu 4: Viết chương trình nhập vào 3 môn văn toán anh tính trung bình cộng
Câu 5: viết chương trình nhập vào 4 số a,b,c,d sau đó tính trung bình cộng của 4 số đó
Câu 6: Viết chương trình tính diện tích hình tam giác
Câu 7: tính diện tích chu vi hình tròn (chỉ với ạ cảm ơn mọi người)
Câu 1:
Uses crt;
Var a,b:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Writeln((a+b)/(a-b));
Readln
End.
Câu 2:
Uses crt;
Var a,b,c:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
Writeln(a*a+b*b+c*c);
Readln
End.
Câu 5:
Uses crt;
Var a,b,c,d:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
Readln(d);
Writeln((a+b+c+d)/4);
Readln
End.