MÌNH ĐANG CẦN GẤP MỌI NGƯỜI GIÚP MÌNH NHANH NHÉ :)))))Khởi động chương trình pascal, viết chương trình nhập số ttuwj nhiên n sao cho 5

LT

Lê Trung Kiên

11 tháng 10 2016

MÌNH ĐANG CẦN GẤP MỌI NGƯỜI GIÚP MÌNH NHANH NHÉ :)))))Khởi động chương trình pascal, viết chương trình nhập số ttuwj nhiên n sao cho 5<n<100, nếu nhập sai yêu cầu nhập lại đúng thì tính tổng Sn:Sn=\(\frac{1.2}{3.4}\)+\(\frac{2.3}{4.5}\)+\(\frac{3.4}{5.6}\)+....+\(\frac{n.\left(n+1\right)}{\left(n+2\right)\left(n+3\right)}\)- Mình mới dùng nên phân số còn hơi chệch choạc, mong mn thông cảm...

Đọc tiếp

#Tin học lớp 8

4

HG

Huy Giang Pham Huy

11 tháng 10 2016

ko phải do bạn lập trình hơi chệch choạng đâu mà do nó khó đó

Đúng(0)

HG

Huy Giang Pham Huy

11 tháng 10 2016

à có vẻ hơi khó thiệt để ngĩ đã

Đúng(0)

HL

Hoàng Long Đậu

17 tháng 2 2022

Làm giúp mình bài này với ạ,mình đang cần gấp

Em hãy viết chương trình Pascal để tính tổng của dãy số An(A1,A2,A3, ...,An) với n được nhập từ bàn phím.Em hãy viết chương trình để in ra tổng các số chẵn của dãy An

#Tin học lớp 8

2

NL

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

18 tháng 2 2022

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

Đúng(0)

GE

ღღղցմվễղ Եհíệղ cհíղհ๖ۣۜঌ

18 tháng 2 2022

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.

Đúng(0)

HT

Hoài thịnh

28 tháng 2 2023

Mọi người giúp mình bài này với ạ :

Viết chương trình pascal nhập mảng và tìm số nhỏ thứ k trong mảng

#Tin học lớp 11

2

NL

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

28 tháng 2 2023

uses crt;

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

i,n,t,j,tam:integer;

begin

clrscr;

readln(n,k);

for i:=1 to n do readln(a[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;

write(a[k]);

readln;

end.

Đúng(3)

PS

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

28 tháng 2 2023

program sonho;

var

arr:array[1..100] of integer;

k, n, i, min: integer;

begin

write('Nhap n: ');

readln(n);

write('Nhap cac phan tu cua day: ');

for i := 1 to n do

begin

readln(arr[i]);

end;

write('Nhap k: ');

readln(k);

min := arr[1];

for i := 2 to k do

begin

if (arr[i] < min) then

min := arr[i];

end;

writeln('So nho thu ', k, ' trong day la: ', min);

end.

Đúng(1)

BT

Bbi thành real

14 tháng 5 2022

Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)

#Tin học lớp 8

2

NL

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

14 tháng 5 2022

uses crt;

var i,n,kt:integer;

begin

clrscr;

readln(n);

kt:=0;

for i=2 to trunc(sqrt(n)) do

if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then write('phai')

else write('Khong phai');

readln;

end.

Đúng(0)

KV

Kiều Vũ Linh

14 tháng 5 2022

Var i,n,souoc:integer;

Begin

While n <= 1 do

Begin

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

End;

For i:=1 to n do

If n mod i = 0 then souoc:=souoc+1;

If souoc = 2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Đúng(0)

HT

Hoài thịnh

27 tháng 2 2023

Mọi người giúp mình bài này với ạ:

Viết chương trình pascal nhập 1 mảng sắp xếp số chẵn giảm dần và số lr tăng dần

#Tin học lớp 11

1

PS

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

27 tháng 2 2023

var A:

array[1..n] of integer;

i, j, n: integer;

begin

write('Nhap so phan tu cua mang: ');

readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i, ': ');

readln(A[i]);

end;

for i := 1 to n - 1 do

for j := i+1 to n do

if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then

begin

swap(A[i], A[j]);

end;

writeln('Mang da sap xep la: ');

for i := 1 to n do

writeln(A[i]);

end.

Đúng(1)

HM

Hương Mai

27 tháng 4 2022

Viết chương trình tính tích n số tự nhiên đầu tiên khác 0 ( n được nhập từ bàn phím). Mọi người giải nhanh câu này giúo mình với , chú ý n khác 0 nhé

#Tin học lớp 8

2

KV

Kiều Vũ Linh

28 tháng 4 2022

Var i,n:integer;

p:longint;

Begin

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

p:=0;

For i:=2 to n do p:=p*i;

Write('Tich la ',p);

Readln;

End.

Đúng(0)

KV

Kiều Vũ Linh

28 tháng 4 2022

Var i,n:integer;

p:longint;

Begin

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

p:=1;

For i:=2 to n do p:=p*i;

Write('Tich la ',p);

Readln;

End.

Đúng(0)

PV

Phạm Việt Bách

4 tháng 6 2021

Mọi người giúp mình câu này với ạ, mình đang cần gấp: Viết chương trình nhập vào 1 ma trận số nguyên kích thước m x m ô. Tính tổng các phần tử trên đường chéo chính.

#Tin học lớp 8

1

NA

nguyễn an phát

5 tháng 6 2021

uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
clrscr;
write('nhap m:');readln(m);
for i:=1 to m do
for j:=1 to m do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
clrscr;
writeln('ma tran da nhap la:');
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:5);writeln;
end;
i:=1;j:=1;
while i<=m do
begin
t:=t+a[i,j];
inc(i);inc(j);
end;
writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
readln;
end.

Đúng(4)

VD

Vy Đan Hà Thị

8 tháng 5 2023

Viết chương trình nhập vào n số nguyên in ra màn hình tổng các số đó (giúp mình với ạ mình đang cần gấp)

#Tin học lớp 8

1

ML

Minh Lệ

8 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la; ',t);

readln

end.

Đúng(2)

DT

Đỗ Trọng TÍn

28 tháng 4 2023

giúp mình vài câu với nha mọi người cảm ơn nhiều
câu 3:viết chương trình nhập vào số tự nhiên N và xuất ra màn hình các ước số tự nhiên của N
câu 4:viết chương trình nhập vào số tự nhiên N và xuất ra màn hình các số lẻ tự nhiên nhỏ hơn N

#Tin học lớp 8

2

KV

Kiều Vũ Linh

29 tháng 4 2023

Câu 3:

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac uoc cua n la ');

For i:=1 to n do

If n mod i = 0 then write(i:8);

Readln

End.

Đúng(2)

KV

Kiều Vũ Linh

29 tháng 4 2023

Câu 4

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac so le nho hon n la ');

For i:=1 to n - 1 do

If i mod 2 <> 0 then write(i:8);

Readln

End.

Đúng(2)

NQ

Nguyễn Quang Đạt

22 tháng 7 2021

viết chương trình nhập 1 dãy số .sau đó đếm xem có bau nhiêu số chẵn.

help mình vs free pascal mình cần gấp!!!!

#Tin học lớp 8

1

NH

Nguyên Hưng Trần

26 tháng 7 2021

Program Tin_hoc;

uses crt;

var n,i,dem:integer;

a:array[1..10000] of integer;

Begin

clrscr;

readln(n);

dem:=0;

for i:= 1 to n do

Begin

readln(a[i]);

if a[i] mod 2 = 0 then inc(dem);

end;

writeln('Day so co ',dem,' so chan');

readln;

end.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP