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.
program Doi_giay;
var n,i,j,d:longint;
a,b:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for j:=1 to n do
read(b[j]);
for i:=1 to n do
for j:=1 to n do
if a[i]=b[j] then begin a[i]:=0;
b[j]:=0; end;
for i:=1 to n do
if a[i]<>0 then d:=d+1;
write(d);
end.
Mình có bài này ở gmail bạn gửi địa chỉ gmail của bạn để mình chuyển đáp án nhé
Bạn tham khảo chương trình này nhé!
program ma_hoa_va_giai_ma;
uses crt;
var s : string;
i,a : integer;
t : char;
BEGIN
clrscr;
repeat
write('Nhap 1 de ma hoa, 2 de giai ma'); readln(a);
if(a<>1) and (a<>2) then writeln('Moi ban nhap lai');
until (a=1) or(a=2);
if a=1 then
begin
write('Nhap xau can ma hoa: '); readln(s);
write('Xau ket qua la: ');
for i:=1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-58) mod 26)+65)) else write(t);
end;
end
else if a=2 then
begin
write('Nhap xau can giai ma: '); readln(s);
write('Xau ket qua la: ');
for i:= 1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-46) mod 26)+65))
else write(t);
end;
end;
readln;
END.
Bộ test số 2 số 7 ở sau số 789 sẽ tạo ra số lớn hơn nó nhưng sao lại để số 7 ở đầu tiên nhỉ. (789756119123)
sắp xếp lại mảng rồi in ra màn hình a[1]a[2]a[3]a[n] làdc
program hotrotinhoc;
const fi='NT.INP';
fo='NT.OUT';
var x,y,d,n: integer;
f: text;
function nt(a: byte): boolean;
var j: byte;
begin
nt:=true;
if (a=2) or (a=3) then exit;
nt:=false;
if (a<=0) or (a=1) or (a mod 2=0) or (a mod 3=0) then exit;
j:=6;
while (j<=trunc(sqrt(a))) do
begin
if (a mod j=0) or (x mod (j+2)=0) then exit;
j:=j+5;
end;
nt:=true;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for x:=1 to n do
for y:=x to n do
if (x+y=n) and nt(x) and nt(y) then inc(d) ;
write(f,d);
close(f);
end;
begin
ip;
out;
end.
var n,x,dem:byte;
f:text;
function kt(so:byte):boolean;
var k:byte;
begin
if (so=2) or (so=3) then exit(true);
if (so=1) or (so mod 2=0) or (so mod 3=0) then exit(false);
k:=5;
repeat
if (so mod k =0) or (so mod (k+2)=0) then break;
inc(k,6);
until k>trunc(sqrt(so));
exit(k>trunc(sqrt(so)));
end;
begin
assign(f,'NT.inp');reset(f);
readln(f,n);
close(f);
assign(f,'NT.out');rewrite(f);
dem:=0;
for x:=1 to n div 2 do
if (kt(x)) and (kt(n-x)) then inc(dem);
writeln(f,dem);
close(f);
readln
end.
chúc bạn học tốt!