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.
Kết quả in ra màn hình là x=9,y=7
Đây là câu lệnh để hoán vị giá trị của x và y cho nhau.
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
Chương trình có dấu cách giữa các số:
Program Doi_thap_phan_ra_nhi_phan;
Var
S,r:integer;
N,T:String;
f:text;
Begin
assign(f,'Nhiphan.INP');
reset(f);
Readln(f,S);
N:=' ';
Repeat
r:= S Mod 2;
Str(r, T);
N:=T + ' ' + N;
S:= S div 2
Until S = 0;
assign(f,'Nhiphan.OUT');
rewrite(f);
write(f,N);
close(f);
End.
uses crt;
var n,i,j:integer;
d:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
i:=1;
repeat
d[i]:=n mod 2;
n:=n div 2;
inc(i);
until n=0;
write('so nhi phan la: ');
for j:=i-1 downto 1 do
write(d[j]);
readln;
end.
Câu 1:
PROGRAM TIM_MAX;
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
BEGIN
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
Readln;
END.
Câu 2:
PROGRAM TIM_MIN;
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A: Mang;
N, i, Min: Integer;
BEGIN
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']= '); Readln(A[i]);
End;
Min:=A[1];
For i:=2 To N Do
If Min>A[i] Then Min:=A[i];
Writeln('Phan tu nho nhat cua mang la:', Min);
Readln;
END.
đây chỉ là bài ví dụ cho bạn áp dụng nhé:
var i,j,k,n,m:longint; f1,f2:text; S,St:string; function ktsnt(n:qword):boolean; var k:qword; begin ktsnt:=false; k:=2; if n<2 then exit; if n=2 then ktsnt:=true; while k*k <= n do begin if n mod k = 0 then exit; inc(k); end; ktsnt:=true; end; {---------------------------------------------------------------} function daonguoc(n:qword):boolean; begin str(n,S);St:=''; for i:=length(S) downto 1 do St:=St+S[i]; val(St,k); if ktsnt(k) then daonguoc:=true else daonguoc:=false; end; {---------------------------------------------------------------} begin assign(f1,'daonguoc.inp');reset(f1); assign(f2,'daonguoc.out');rewrite(f2); readln(f1,n,m); for j:=n to m do if daonguoc(j) then writeln(f2,j); close(f1);close(f2);
end.thông cảm nha mik chỉ còn bài mẫu từ lâu của mik mà mik hok quên rồi
ko thể giúp bài của bạn nha