Nhập vào dãy gồm n phân số

MH

Minh Hào

11 tháng 7 2021

Nhập vào dãy gồm n phân số; trong đó tử số và mẫu số của mỗi phân số là các số nguyên dương. (làm bằng ngôn ngữ C)a. Hãy tính tổng các phân số của dãy; kết quả là một phân số tối giản. b. Đếm xem có bao nhiêu phân số không phải là phân số tối giản. c. Tìm phân số có giá trị lớn nhất của...

Đọc tiếp

#Tin học lớp 12

5

HM

Hoàng Minh Đức

13 tháng 7 2021

Code:#include <stdio.h> struct phanso {int tu;int mau;}; int ucln(int a, int b) {while(a!=b){if(a>b)a=a-b;elseb=b-a;}return a;} struct phanso tg(struct phanso a) {int c = ucln(a.tu, a.mau);a.tu /= c;a.mau /= c;return a;} struct phanso tong(struct phanso a, struct phanso b) {struct phanso s;s.tu = (a.tu * b.mau) + (b.tu * a.mau);s.mau = a.mau * b.mau;return s;} main() {struct phanso ps[100];struct phanso s;int n, x = 0, maxnum;double gtps[100], max;unsigned int i;printf("Nhap n: "); scanf("%d", &n);for (i = 0; i < n; i++) {printf("Nhap tu so cua phan so so %d: ", i + 1); scanf("%d", &ps[i].tu);printf("Nhap mau so cua phan so so %d: ", i + 1); scanf("%d", &ps[i].mau);}s = ps[0];for (i = 1; i < n; i++) {s = tong(s, ps[i]);}printf("\n");printf("a) Tong: %d/%d\n", tg(s).tu, tg(s).mau);for (i = 0; i < n; i++) {if (ps[i].mau != tg(ps[i]).mau) {x += 1;}}printf("b) So phan so chua toi gian: %d\n", x);for (i = 0; i < n; i++) {gtps[i] = (double)ps[i].tu / (double)ps[i].mau;}max = gtps[0];for (i = 1; i < n; i++) {if (max < gtps[i]) {maxnum = i;max = gtps[i];}}printf("c) Phan so co gia tri lon nhat la: %d/%d", ps[maxnum].tu, ps[maxnum].mau);return 0;} Ảnh:

Đúng(0)

HM

Hoàng Minh Đức

13 tháng 7 2021

Đúng(0)

K

kadydaucac

11 tháng 4 2023

BT1: Viết trương trình nhập vào dãy A gồm N phân tử là số nguyên. Nhập và đưa ra màn hình dãy ABT2: Viết chương trình nhập vào dãy A gồm N phân tử (N bé hơn hoặc bằng 100). Tính tổng số chẵn trang tính A

#Tin học lớp 8

1

H9

HT.Phong (9A5)

CTVHS

11 tháng 4 2023

BT1:

Uses crt;

var i,n: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do

read(a[i]); readln;

writeln(a[i]:3);

readln;

end.

BT2:

Uses crt;

var i,n,k: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do

read(a[i]); readln;

for i:=1 to n do begin

if(a[i] mod 2=0) then k:=k+a[i];

end;

writeln(k);

readln;

end.

Đúng(2)

0T

09. Trương Gia Hân

31 tháng 3 2022

Viết chương trình nhập vào 1 dãy số gồm n phân tử.Hãy in dãy số đó ra màn hình

#Tin học lớp 8

1

NL

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

31 tháng 3 2022

uses crt;

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

begin

clrscr;

readln(n);

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

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

readln;

end.

Đúng(0)

YD

Yan Dyi

4 tháng 5 2023

Viết chương trình nhập vào dãy số A gồm N phần tử (N nhập từ bàn phím) In ra màn hình các phân tử lag số chẵn?

#Tin học lớp 8

1

PS

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

4 tháng 5 2023

program HienThiSoChan;

var

N, i: integer;

A: array[1..50] of integer;

begin

writeln('Nhap so nguyen duong N:');

readln(N);

writeln('Nhap day so A gom ', N, ' phan tu:');

for i := 1 to N do

begin

readln(A[i]);

if A[i] mod 2 = 0 then

begin

writeln('Phan tu thu ', i, ' la so chan: ', A[i]);

end;

readln;

end.

Đúng(0)

HD

hoàng đinh minh tiến

10 tháng 5 2023

viết ct:

a) nhập vào dãy số nguyên gồm n phân tử

b) tính tích các phần tử chẵn có trong dãy

c) in đảo ngược dãy sô

#Tin học lớp 8

2

KV

Kiều Vũ Linh

10 tháng 5 2023

Bài 1

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

i,n:integer;

p:longint;

Begin

p:=1;

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

if a[i] mod 2 = 0 then p:=p*a[i];

End;

Write('Tich cac so chan la: ',p);

Write('Day viet nguoc lai la ');

For i:=n downto 1 do

Write(a[i]:8);

Readln

End.

Đúng(1)

NH

Nguyễn Hoàng Duy

11 tháng 5 2023

program TinhTichVaInDaoNguoc;
var a: array[1..1000] of integer;
i, n: integer;
s: longint;
begin
s := 1;
write'(nhap vao n : ');
readln(n);

for i := 1 to n do
begin
write('Nhap so thu ', i, ' = ');
readln(a[i]);

if a[i] mod 2 = 0 then
s := s * a[i];
end;

writeln('Tich cac so chan la: ', s);
writeln('Day viet nguoc lai la: ');

for i := n downto 1 do
write(a[i]:8);

readln;
end.

Đúng(0)

MP

Mai Phương Lê

4 tháng 5 2021

1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng

#Tin học lớp 8

3

NL

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

5 tháng 5 2021

Bài 1:

uses crt;

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

i,n: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

if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Đúng(1)

NL

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

5 tháng 5 2021

Bài 2:

uses crt;

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

i,n: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

if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Đúng(1)

B

boymezu

3 tháng 5 2023

viết chương trình nhập vào 1 dãy gồm n số(n được nhập vào từ bàn phím) tính tổng các số chẵn có trong dãy số vừa nhập

#Tin học lớp 8

1

ML

Minh Lệ

3 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 if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chan la: ',t);

readln

end.

Đúng(1)

N

nguyensonbd

28 tháng 4 2021

Viết chương trình nhập vào 1 dãy số nguyên gồm n phân tử sắp xếp lại dãy (Đây là dãy tăng dần) sao cho các số chẵn tăng dần ở đầu dãy,các số lẻ giàm dần cuối dãy

#Tin học lớp 8

1

NH

Nguyen Hung

28 tháng 4 2021

Program Tin_hoc;

Uses crt;

Var i,tam,n,chan,le,j:integer;

a,daychan,dayle:array[1..10000] of integer;

Begin

clrscr;

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

chan:=0;le:=0;

Writeln('Nhap ',n,' phan tu cua mang:');

For i:= 1 to n do

Begin

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

Readln(a[i]);

If a[i] mod 2 = 0 then

Begin

inc(chan);

daychan[chan]:=a[i];

end

else

Begin

inc(le);

dayle[le]:=a[i];

End;

For i:= 1 to chan do

for j:= i to chan do If daychan[i]>daychan[j] then

Begin

tam:=daychan[i];

daychan[i]:=daychan[j];

daychan[j]:=tam;

End;

For i:= 1 to le do

for j:= i to le do If dayle[i]<dayle[j] then

Begin

tam:=dayle[i];

dayle[i]:=dayle[j];

dayle[j]:=tam

End;

Writeln('Day sau khi sap xep:');

For i:= 1 to chan do write(daychan[i],' ');

For i:= 1 to le do write(dayle[i],' ');

Readln;

End.

Đúng(1)

N

nguyensonbd

28 tháng 4 2021

thank

Đúng(0)

CL

Cuong Ly

4 tháng 5 2021

viết ct nhập vào 1 dãy gồm n số (với n được nhập từ bàn phím).tìm giá trị lớn nhất trong dãy số vừa nhập.

#Tin học lớp 8

2

NT

Nguyễn Tuấn Anh

4 tháng 5 2021

Var z:array[1..1000] of longint;

n, i, max:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

max:= z[1];

End;

Đúng(0)

NL

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

4 tháng 5 2021

uses crt;

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

i,n,max,dem1,dem2:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('So lon nhat la: ',max);

readln;

end.

Đúng(0)

HN

Huỳnh Ngọc Nguyên

25 tháng 4 2023

viết chương trình nhập vào dãy gồm n số nguyên từ bàn phím. in ra giá trị của những phân tử âm

#Tin học lớp 8

1

PS

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

25 tháng 4 2023

program Soam;

var

n, i: integer;

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

begin

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

readln(n);

for i := 1 to n do

begin

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

readln(a[i]);

end;

writeln('Cac phan tu am trong day la: ');

for i := 1 to n do

begin

if a[i] < 0 then

writeln(a[i]);

end;

end.

Đúng(1)

HP

Huy Phạm

2 tháng 5 2023

1.Viết chương trình nhập vào một dãy số gồm n phần tử.Sắp xếp dãy số theo thứ tự tăng dần sau đó in ra màn hình dãy số đã sắp xếp. 2.Viết chương trình nhập vào một dãy số gồm n phần tử. Sắp xếp dãy số theo thứ tự giảm dần sau đó in ra màn hình dãy số đã sắp xếp.(cứu mk với mai thi r ạ🥲

#Tin học lớp 8

2

KV

Kiều Vũ Linh

3 tháng 5 2023

1)

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

i,n,t:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] > a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep tang dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Đúng(0)

KV

Kiều Vũ Linh

3 tháng 5 2023

2)

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

i,n,t:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] < a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep giam dan ');

For i:=1 to n do write(a[i]:8);

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