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...

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)

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

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)

M

Mon_LAK

29 tháng 7 2021

Đếm các cặp số trong dãy thỏa mãn điều kiện: tổng là số chẵn.Dữ liệu vào: Đọc từ file văn bản BAI2.INP có cấu trúc như sau:Dòng đầu tiên ghi giá trị n là độ dài của dãy số. (1<=n<=10000)Dòng thứ 2 là n số của dãy số nguyên được viết cách nhau ít nhất một dấu cách.Kết quả: Ghi ra file văn bản BAI2.OUT một số duy nhất là số cặp có tổng là số...

Đọc tiếp

#Tin học lớp 8

1

AP

Anh Phạm

29 tháng 7 2021

uses crt;

var f,g:text;

n,i,m,k,j:integer;

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

const fi='BAI2.INP'; fo='BAI2.OUT';

begin

assign(f,fi); reset(f);

assign(g,fo); rewrite(g);

readln(f,n);

for i:=1 to n do

readln(f,a[i]);

for i:=1 to n do

begin

m:=a[i];

for j:=i+1 to n do

if odd(m+a[j])=false then k:=k+1;

end;

write(g,k);

close(f);

close(g);

end.

Đúng(0)

NT

Nguyễn Thi Thư

13 tháng 5 2023

Viết chương trình đọc từ tệp BAI1.INP số nguyên dương N . Tính tổng các số lẻ từ 1 đến N. Ghi kết quả vào tệp BAI1.OUT .

BA1.INP. BAI1.OUT

6. 9

#Tin học lớp 11

1

ML

Minh Lệ

15 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

f1,f2: text;

begin

assign(f1,'BAI1.INP');

reset(f1);

read(f1,n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

close(f1);

assign(f2,'BAI1.OUT');

rewrite(f2);

write(f2,t);

close(f2);

end.

Đúng(2)

NV

Nguyễn Văn Khoa

30 tháng 11 2021

Hãy viết chương trình tính số câu đúng cho một thí sinhDữ liệu: vào từ tệp bai2.inp gồm 2 dòng - Dòng thứ nhất chứa câu trả lời của thí sinh (độ dài <=120 câu) - Dòng thứ 2 chứa xâu đáp án của đề thi tương ứng có cùng độ dài với câu trả lời.Kết quả: ghi ra tệp bai2.out với một số nguyên duy nhất là số câu đúng của một thí sinh bất...

Đọc tiếp

#Tin học lớp 11

0

PT

Phạm Thế Dũng

24 tháng 3 2023

nhập vào bàn phím số nguyên dương n , in ra chữ số lớn nhất trong số đó
text : inp out

nhap n 721812196: chu so lon nhat :9

giúp em em cần gấp

#Tin học lớp 8

1

ML

Minh Lệ

24 tháng 3 2023

Program HOC24;

var n: longint;

d,max: byte;

begin

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

max:=0;

while n<>0 do

begin

d:=n mod 10;

if d>max then max:=d;

n:=n div 10;

end;

write('Chu so lon nhat la: ',max);

readln

end.

Đúng(1)

PX

Phạm Xuân Trường

6 tháng 4 2017

Câu 1. ( 3 điểm) Cho một xâu kí tự có độ dài N không quá 5000 kí tự. Hãy tìm cách thêm vào tại vị trí bất kì của của xâu sao cho xâu mới tạo thành là một xâu đối xứng và số kí tự thêm vào là ít nhât. Dữ liệu vào từ File văn bản BAI1.INP, dòng đầu ghi số N, dòng tiếp theo là xâu kí tự. Kết quả ghi vào File văn bản BAI2.OUT gồm chỉ 1 giá trị duy nhất là số kí tự cần thêm vào để được xâu đối xứng. Ví...

Đọc tiếp

#Tin học lớp 11

1

PX

Phạm Xuân Trường

6 tháng 4 2017

uses crt;
const finp='Bai1.inp';
fout='Bai1.out';
type mangc=array[1..10000] of char;
mangl=array[1..10000] of longint;
var f:text;
ch:mangc; a:mangl;
n:longint;
procedure doc;
var i:longint;
begin
assign(f,finp);
reset(f);
readln(f,n);
for i:=1 to n do read(f,ch[i]);
close(f);
end;
procedure ghi;
begin
assign(f,fout);
rewrite(f);
end;
procedure tim;
var i,j,d,k,l:longint;
begin
for i:=n-2 downto 1 do
begin
a[i]:=1;
d:=0;
for j:=i+1 to n do
begin
l:=a[j];
if ch[i]=ch[j] then a[j]:=d+2
else if a[j-1]>a[j] then a[j]:=a[j-1];
d:=l;
end;
end;
end;
procedure xuly;
var i:longint;
begin
fillchar(a,sizeof(a),0);
if n=1 then a[n]:=1
else begin
a[n-1]:=1;
a[n]:=ord(ch[n]=ch[n-1])+1;
end;
if n>2 then tim;
write(f,n-a[n]);
end;
begin
doc;
ghi;
xuly;
close(f);
end.

ai có thể giải thích cho mình bài này đc không

nhất là cái "procedure tim" và mục đích của mảng số nguyên a

mk cảm ơn nhiều

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