Mọi người ơi, giúp em với, em cảm ơn nhiều ạ ❤
S= -1/3*1 + 1/3*2 + -1/3*3 + .... 1/3*10
Câu 1: viết lại 2 chương trình tính tong la, và tong1b riêng biệt
Câu 2: viết chương trình tính tong bằng cấu trúc lặp While () do
Những câu hỏi liên quan
mn giúp em với
S= -1/3*1 + 1/3*2 + -1/3*3 + .... 1/3*10
Câu 1: viết lại 2 chương trình tính tong 1a, và tong1b riêng biệt
Câu 2: viết chương trình tính tong bằng cấu trúc lặp While () do
Câu 1: Bạn ghi rõ đề hơn nhé.
Câu 2:
Program hotrotinhoc;
var n,i: integer;
s: real;
begin
s:=0;
n:=0;
while n<10 do
begin
n:=n+1;
if n mod 2=1 then s:=s-(1/3*n) else s:=s+(1/3*n);
end;
write(s:1:2);
readln
end.
Đúng 0
Bình luận (0)
Câu 2: Viết Chương trình tính hiệu a - b với a,b là hai số nguyên nhập từ bàn phím
Câu 3: Viết Chương trình nhập vào ba số nguyên a, b, c. tính a+b-c.
Câu 4: Viết Chương trình nhập vào 3 số x, y, z. Tính (x+y)*z (giúp em với ạ em cảm ơn mọi người)
C1:
khai báo:
program hieu_a_va_b ("tự đặt tên cái này ko cần thiết)
uses crt;
var a, b : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("hieu cua hai so la: a - b=" , a - b);
end.
C2:
khai báo:
program tinh_ba_so
uses crt;
var a, b, c : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("nhap so c"); read(c);
writeln ("ket qua cua phep tinh a+b-c la" , a+b-c);
end.
C3:
khai báo:
program tinh_ba_so
uses crt;
var x, y, z : integer
phần thân:
begin
writeln ("nhap so x"); read(x);
writeln ("nhap so y"); read(y);
writeln ("nhap so z"); read(z);
writeln ("ket qua cua phep tinh (x+y)*z la") , (x+y)*z);
end.
nhớ chạy thử chương trình nha. xem có lỗi ko.
(nhớ tick cho mk nha)
Đúng 0
Bình luận (0)
Câu 2: Viết Chương trình tính hiệu a - b với a,b là hai số nguyên nhập từ bàn phím
Câu 3: Viết Chương trình nhập vào ba số nguyên a, b, c. tính a+b-c.
Câu 4: Viết Chương trình nhập vào 3 số x, y, z. Tính (x+y)*z (giúp em với ạ em cảm ơn mọi người)
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a-b;
return 0;
}
Đúng 0
Bình luận (0)
mn giúp em với ạ sắp thi rồi :|||
câu 1: viết chương trình tính N! (với số N là số tự nhiên được nhập từ bàn phím
câu 2: viết chương trình tính tổng sau
s=1+1/2+1/3.....+1/n
Câu 1:
Program HOC24;
var i,n: integer;
t: longint;
write('Nhap N: '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(n,'! = ',t);
readln
end.
Đúng 2
Bình luận (0)
Câu 2:
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);
readln
end.
Đúng 2
Bình luận (1)
MỌI NGƯỜI ƠI GIÚP EM GIẢI BÀI NÀY VỚI Ạ EM CẢM ƠN !!!
(bài này là viết chương trình nha mọi người)
ĐỀ BÀI
Nhập số N là số nguyên dương từ bàn phím và thực hiện:
+ Nếu N là số chẵn thì S = 2 x 4 x 6 x .... x N
+ Nếu N là số lẻ thì S = 1 x 3 x 5 x .... x N
(mọi người giải gấp giúp em ạ tại ngày mai em nộp bài cho cô rồi ạ
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
if (n%2==0)
{
s=1;
for (i=1; i<=n; i++)
if (i%2==0) s=s*i;
cout<<s;
}
else
{
s=1;
for (i=1; i<=n; i++)
if (i%2==1) s=s*i;
cout<<s;
}
return 0;
}
Đúng 2
Bình luận (0)
Câu 3: Viết chương trình tính tổng S 1+1/2^2+1/3^3+...+1/n^2 với n N*cho trước (Sử dụng vòng lặp while..do)Các bạn giúp mình được không ạ.
Đọc tiếp
Câu 3: Viết chương trình tính tổng S= 
1+1/2^2+1/3^3+...+1/n^2 với n
N*cho trước (Sử dụng vòng lặp while..do)
Các bạn giúp mình được không ạ.
Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do
Xem chi tiết
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
Đúng 1
Bình luận (3)
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (1)
Mọi người giúp mình câu này với ạ :
Tính tổng : S= 1-2-3+4+5-6-7+8+9-10-11+12+...+n
Viết chương trình pascal nhập vào một số n tính tổng từ 1 đến n theo 2 cách
GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.
Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)
N nhập từ bàn phím
Program HOC24;
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/(i*(i+1));
write('S= ',s:6:2);
readln
end.
Đúng 1
Bình luận (1)
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i*(i+1);
i:=i+1;
end;
write('S=',S:5:2);
readln
end.
Đúng 1
Bình luận (0)