Các bạn giúp mk với!! Tính và in ra màn hình kết quả của các dãy số sau với số nguyên dương n nhập từ bàn phí...

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.

Mua vip

LH

Lãnh Hàn Thiên Phong

12 tháng 12 2019

Các bạn giúp mk với!!

Tính và in ra màn hình kết quả của các dãy số sau với số nguyên dương n nhập từ bàn phím, (0<n<13) nếu nhập n không đúng yêu cầu thì buộc phải nhập lại.
a/ S1=1/2+2/3+3/4+…+n/(n+1)
b/ S2=1+1/2!+1//3!+…+1/n! (n!=1.2.3. … .n)
(Tổng S1, S2 lấy 3 số thập phân)

#Tin học lớp 11

3

LT

Luân Trần

12 tháng 12 2019

Hỏi đáp Tin học

LT

Luân Trần

12 tháng 12 2019

Hỏi đáp Tin học

Các câu hỏi dưới đây có thể giống với câu hỏi trên

HN

Huyền Nguyễn

8 tháng 11 2016

1. Nhập vào số nguyên n từ bàn phím. Tính n! rồi hiển thị kết quả ra màn hình với 0!=1; 1!=1; 2!....

2. Nhập vào 3 số nguyên a,b,c bất kì. Kiểm tra 3 số nguyên đó có là 3 cạnh của một tam giác vuông hay không?

#Tin học lớp 11

1

C

Cheewin

9 tháng 11 2016

1.uses crt;

var n,gt:longint;

begin

clrscr;

repeat

write('nhap so n:');readln(n);

until n>0;

gt:=1;

while n>0 do

begin

gt:=gt*n;

n:=n-1;

end;

writeln('giai thua cua n la:',gt);

readln

end.

2. uses crt;

var a,b,c:real;

begin

clrscr;

write('nhap a=');readln(a);

write('nhap b=');readln(b);

write('nhap c=');readln(c);

if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');

readln

end.

NT

Nguyễn Thiện Minh

23 tháng 11 2016

Cái chỗ chữ " repeat " cần thêm chữ " begin " nữa !

NT

nông thị ngân

22 tháng 3 2021

Viết chương trình nhập vào từ bàn phím mảng B gồm N số nguyên (N<=200)và 1 số nguyên dương k:

1. Tính tổng các phần tử lẻ trong mảng A và đưa kết quả ra màn hình?

2. Tính tổng các phần tử là bội của K trong mảng A và đưa kết quả ra màn hình?

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

22 tháng 3 2021

uses crt;

var a:array[1..200]of integer;

n,i,k,t,t1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

t:=0;

for i:=1 to n do

if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do

if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

DH

Đại Hà

18 tháng 12 2021

Câu 3: Nhập một mảng gồm N phần tử.

A, tính tổng chẵn, tổng lẻ của các phấn tử trong mảng.

B, Tìm phần tử lớn nhất, nhỏ nhất trong mảng.

C, Tìm kiếm xem phần tử K nào đó có tồn tại trong mảng hay không?

BT

bùi thị kim liên

24 tháng 11 2021 - olm

Viết chương trình nhập mảng 1 chiều gồm N số nguyên (N được nhập từ bàn phím <=250). Tính và in ra màn hình Tổng của cá phần tử chia hết cho 3 có trong mảng vừa nhập.

#Tin học lớp 11

5

LT

Lê Thị Thu Huyền

24 tháng 11 2021

bprogram min

uses crt

var A: array [1...250] of integer

tong :integer;

begin

tong:=0

writeln(‘nhap n:’); readln (n)

forr i:=1 to n do

begin

writeln (‘nhap phan tu thu ‘,i);

readln (A[i] );

end

for i:=1 to n do

begin

if (A[i] mod 3=0)

then tong:=tong +A[i];

end

writeln (Tong cac phan tu chia het cho 3)

readln ;

end

PV

Phạm Văn Dũng

24 tháng 11 2021

AL

Anna Lagila

13 tháng 12 2021

1. Nhập một số nguyên dương N≤200 và hai dãy số nguyên a[1..n] và b[1..n] thông báo ra màn hình xem hai dãy số đó có cùng các số hạng như nhau và chỉ khác nhau về thứ tự sắp xếp hay không.2. Dùng các mảng 1 chiều nhập dữ liệu từ bàn phím của các khách hàng gửi tiền vào ngân hàng: họ tên, số tài khoản, số tiền dư(có thể âm). Sắp xếp danh sách khách hàng theo số tài khoản tăng dần và in...

#Tin học lớp 11

0

NT

nguyen thi be

29 tháng 12 2020

viết chg trình nhập từ bàn phím số nguyên dương N hãy tính và đưa ra màn hình tổng các số chia hết cho 3 trong đoạn từ 1 đến N

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

29 tháng 12 2020

uses crt;

var n,i,t:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

t:=0;

for i:=1 to n do

if i mod 3=0 then t:=t+i;

writeln('Tong cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',t);

readln;

end.

DT

Đạt Trần

18 tháng 5 2021

viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

18 tháng 5 2021

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 7=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 7 la: ',t);

readln;

end.

NK

Nguyễn khánh thành

7 tháng 4 2020

Bài 1: Viết chương trình nhập vào số nguyên dương n (0<n<100) và khởi tạo dãy gồm n số nguyên Ai (-32000<Ai<32000). Đếm và in ra màn hình các số dương có 3 chữ số?

Bài 2: Viết chương trình nhập vào một xâu kí tự, đếm xem trong xâu có bao nhiêu kí tự chữ số 1?

#Tin học lớp 11

0

NT

Nguyễn Trần Hồng Ngọc

6 tháng 5 2023

Hãy viết chương trình pascal nhập tên và lớp của học sinh, nhập từ bàn phím dãy số nguyên gồm n phần tử(n nhập từ bàn phím) n<12, tính trung bình cộng của dãy số trên và in ra màn hình, in ra màn hình các số nguyên tố của dãy số trên.

#Tin học lớp 11

1

PS

Phía sau một cô gái

7 tháng 5 2023

program TinhTBCTimSoNT;

var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;

function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;

begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);

// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;

// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;

// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.

NP

Nghia Phan

17 tháng 3 2022

Câu 1 (2 điểm): Nhập n nguyên dương (n<=100) và mảng A gồm n phần tử nguyên . Viết chương trình:Đưa ra phần tử lớn nhất cùng chỉ số của nó. (1 điểm)Tính tổng các phần tử của mảng A. (1 điểm)Câu 2 (1 điểm): Nhập một xâu từ bàn phím, đưa ra màn hình xâu sau khi đã được chuẩn hóa (Xâu chuẩn hóa là xâu đã loại bỏ dấu...

#Tin học lớp 11

0