Bài 1 nhập vào mảng in ra số đối xứng bai 1.inp bai.out 5 721 34 -10 211 5 212 Bài 2 in ra uwcln của số thứ nhất và các số còn lại bai 2.inp bai2.out 6 8 11 1 12 2 1 1 6 Bài 3 In ra giá trị gia...

LC

lê chí hiếu

21 tháng 8 2019

Bài 1 nhập vào mảng in ra số đối xứng bai 1.inp bai.out 5 721 34 -10 211 5 212 Bài 2 in ra uwcln của số thứ nhất và các số còn lại bai 2.inp bai2.out 6 8 11 1 12 2 1 1 6 Bài 3 In ra giá trị giai thừa của nó bai 3.inp bai3.out 2 5 1 2 120 1 Bài 4 In ra số nhỏ nhất và số mũ là các số còn lại Bai4.inp bai 4.out 2 3 4 2 4 8 16 bạn nào giải giúp mình...

Đọc tiếp

#Tin học lớp 11

0

LC

lê chí hiếu

21 tháng 8 2019

Bài 1 nhập vào mảng in ra số đối xứng bai1.inp bai2.out 5 721 34 -10 211 5 212 Bài 2 in ra ưcln của số thứ nhất và các số còn lại bai2.inp bai2.out 6 8 11 1 12 2 1 1 6 Bài 3 In ra giá trị giai thừa của nó bai3.inp bai3.out 2 5 1 2 120 1 Bài 4 In ra số nhỏ nhất và số mũ là các số còn lại bai4.inp bai4.out 2 3 4 2 4 8...

Đọc tiếp

#Tin học lớp 11

4

ML

Minh Lệ

21 tháng 8 2019

Đợi chút mình đang giải.

Đúng(0)

ML

Minh Lệ

21 tháng 8 2019

Đúng rồi , bạn thêm:

const fi='bai3.inp';

fo='bai3.out';

Đúng(0)

H

hoichut

1 tháng 6 2023

- Bài 1: Cho tệp bai1.inp gồm 4 số nguyên. Hãy viết chương trình và ghi ra file bai1.out gồm 1 số là giá trị lớn nhất trong 4 số đó. - bài 2: Cho tệp bai2.inp gồm 4 số nguyên. Hãy viết chương trình và ghi ra file bai2.out gồm 1 số là giá trị nhỏ nhất trong 4 số đó - Bài 3: Cho tệp bai3.inp gồm 1 số nguyên là thời gian tính bằng giây để làm một công việc nào đó. Hãy viết chương trình và ghi ra file bai3.out gồm 3 số tương...

Đọc tiếp

#Tin học lớp 11

0

LC

lê chí hiếu

22 tháng 8 2019

nhập 1 mảng số nguyên dương <10^6 a) in ra số đối xứng lớn nhất b) in ra số đảo ngược lớn nhất c)tìm cắp số có ucln là lớn nhất d) viết ra số nguyên tố cố tổng các chữ số của nó lớn nhất bai5.inp bai5.out 5 7 9 123 31 9 123 9 123 7 ...

Đọc tiếp

#Tin học lớp 11

1

ML

Minh Lệ

22 tháng 8 2019

Lời giải:

Nhập mảng phải có nhập số lượng phần tử nữa bạn nhé.

program hotrotinhoc;

const fi='bai5.inp';

fo='bai5.out';

var f: text;

i,j,n,max,max1,max2,max3,max4: longint;

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

function dn(x: integer): integer;

var s: integer;

begin

s:=0; dn:=0;

while x<>0 do

begin

s:=s*10+(x mod 10);

x:=x div 10;

end;

dn:=s;

end;

function nt(x1: integer): boolean;

var j: integer;

begin

nt:=false;

if x1<2 then exit;

for j:=2 to trunc(sqrt(x1)) do

if x1 mod j=0 then exit;

nt:=true;

end;

function tongcs(x2: integer): integer;

var s1: integer;

begin

s1:=0;

while x2<>0 do

begin

s1:=s1+(x2 mod 10);

x2:=x2 div 10;

end;

tongcs:=s1;

end;

function ucln(x3,y: integer) : integer;

var z: integer;

begin

while y<>0 do

begin

z:=x3 mod y;

x3:=y;

y:=z;

end;

ucln:=x3;

end;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do

read(f,a[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

max:=0; max2:=0; max3:=0;

for i:=1 to n do

begin

if (dn(a[i])=a[i]) and (a[i]>max) then max:=a[i];

if dn(a[i])>max2 then max2:=dn(a[i]);

if (nt(a[i])) and (tongcs(a[i])>max3) then max3:=a[i];

end;

writeln(f,max);

for i:=1 to n do if dn(a[i])=max2 then

writeln(f,a[i]);

max4:=0;

for i:=1 to n do

for j:=i to n do

if (a[i]<>a[j]) and (ucln(a[i],a[j])>max4) then max4:=ucln(a[i],a[j]);

for i:=1 to n do

for j:=i to n do

if ucln(a[i],a[j])=max4 then writeln(f,a[i],' ',a[j]);

write(f,max3);

close(f);

end;

begin

ip;

out;

end.

Đúng(0)

LC

lê chí hiếu

22 tháng 8 2019

camr ơn

Đúng(0)

TT

Tran Trang

20 tháng 4 2023

Bài tập 2. Viết chương trình nhập vào 1 dãy gồm n số nguyên. In dãy vừa nhập và đưa ra phần tử có giá trị lớn nhất và nhỏ nhất của mảng.

#Tin học lớp 8

1

H9

HT.Phong (9A5)

CTVHS

20 tháng 4 2023

Uses crt;

var n,i,max,min: integer;

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

begin clrscr;

readln(n);

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

max:=a[1];

for i:=1 to n do if(max<a[i]) then max:=a[i];

writeln(max);

min:=a[1];

for i:=1 to n do if(min>a[i]) then min:=a[i];

writeln(min);

readln;

end.

Đúng(2)

TL

Thọ Lê Đức

27 tháng 4 2023

Bài 23: Viết chương trình nhập vào 1 mảng số nguyên.In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó Bài 24:Viết chương trình tìm giá trị lớn nhất( in ra vị trí chứa phần tử có giá trị lớn nhất )của dãy số gồm n số nguyên được nhập từ bàn phím CẦN GẤP CÂU TRẢ LỜI Ạ:((

#Tin học lớp 8

2

KV

Kiều Vũ Linh

28 tháng 4 2023

Bài 23

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

i,n:integer;

s,tbc:real;

begin

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

for i:=1 to n do

begin

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

s:=s+a[i];

end;

tbc:=s/n;

writeln('Gia tri trung binh la ',tbc:10:2);

write('Cac so lon hon gia tri trung binh la: ');

for i:=1 to n do

if a[i] > tbc then write(a[i]:8);

readln

end.

Đúng(0)

KV

Kiều Vũ Linh

28 tháng 4 2023

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

i,n,max:integer;

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=2 to n do

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

for i:=1 to n do

begin

if max=a[i] then write(max,' o vi tri thu ',i);

break;

readln

end.

Đúng(0)

KL

Khánh Linh

26 tháng 2 2022

Bài 1:Nhập 1mảng có n số nguyên từ bàn phím1.In mảng vừa nhập2.Đếm và in ra các số chẵn 3.Tính tổng các số lẻ4.Đếm và in ra các số lẻ không chẵnBài 2:Nhập 1 mảng gồm n số nguyên từ bàn phím.In mảng vừa nhập các phần tử cách nhau 5 khoảng trống.Tìm max,min của mảngBài 3:Nhập 1 mảng gồm n số thực từ bàn phím.In mảng vừa nhập,mỗi mảng cách nhau 4 vị trí.In ra màn hình tất cả các số âm in trong mảng.Tính...

Đọc tiếp

#Tin học lớp 11

1

NL

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

26 tháng 2 2022

Bài 2:

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,ln,nn;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

ln=a[1];

nn=a[1];

for (i=2; i<=n; i++)

{

ln=max(ln,a[i]);

nn=min(nn,a[i]);

}

cout<<ln<<" "<<nn;

}

Đúng(0)

H

hoàng

20 tháng 4 2021

bài 1:viết chương trình nhập vào 1 mảng

-in ra mảng vừa nhập

-in ra giá trị đầu tiên của mảng

-tính tổng giá trị các phân tử có trong mảng

#Tin học lớp 8

1

NL

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

20 tháng 4 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;

writeln('Gia tri dau tien la: ',a[1]);

t:=0;

for i:=1 to n do

t:=t+a[i];

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

readln;

end.

Đúng(0)

PD

phạm đức trung

29 tháng 10 2021

Bài 1: Cho số có 2 chữ số, in ra tổng của 2 chữ số đó, ví dụ: Nhập 15 in ra tổng của 2 chữ số là: 1+5=6 . Bài 2: Nhập thông tin cá nhân của một người gồm có: Ho_ten, Nam_sinh, Gioi_tinh. Hãy in ra các thông tin trên và cho biết người đó hiện nay bao nhiêu tuổi , cho biết: Tuổi=2021-Nam_sinh. Bài 3: Cho số có 4 chữ số, in ra số đảo của số đó, ví dụ: nhập 2357, in ra 7532ko bt...

Đọc tiếp

#Tin học lớp 8

2

PD

phạm đức trung

29 tháng 10 2021

ai giúp với

Đúng(0)

NL

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

29 tháng 10 2021

Bài 1:

#include <bits/stdc++.h>

using namespace std;

int a,dv,ch;

int main()

{

cin>>a;

dv=a%10;

ch=a/10;

cout<<dv+ch;

return 0;

}

Đúng(0)

F

feng

21 tháng 5 2022

Viết chương trình nhập vào mảng A gồm n nhỏ 1 = 100 các số nguyên tử sau a) tính tích các số chia hết cho 3 b)in ra màn hình giá trị nhỏ nhất chia hết cho 3 và chỉ số của nó c) in ra màn hình các phần tử của mảng đó theo thứ tự ngược lại

#Tin học lớp 11

1

NL

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

21 tháng 5 2022

uses crt;

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

n,i,t,nn,kt:integer;

begin

clrscr;

readln(n);

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

t:=1;

for i:=1 to n do

if a[i] mod 3=0 then t:=t*a[i];

writeln(t);

kt:=0;

nn:=32567;

for i:=1 to n do

if a[i] mod 3=0 then

begin

if nn>a[i] then nn:=a[i];

kt:=1;

end;

if kt=0 then writeln('Khong co so chia het cho 3')

else writeln('So nho nhat chia het cho 3 la: ',nn);

for i:=1 to n do

if nn=a[i] then write(i:4);

writeln;

for i:=n downto 1 do

write(a[i]:4);

readln;

end.

Đúng(1)

F

feng

21 tháng 5 2022

chạy rồi thì nhập gì để cho ra kết quả như bên phải ạ ? undefined

Đú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