K
Khách

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.

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<min(a,b)<<" "<<max(a,b);

return 0;

}

16 tháng 1 2022

Var a,b:integer;

Begin

Write('Nhap a = ');readln(a);

Write('Nhap b = ');readln(b);

If a >= b then write(b,'   ;   ', a)

Else write(a,'   ;   ',b);

Readln;

End.

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<min(a,b)<<" "<<max(a,b)<<endl;

cout<<max(a,b)<<" "<<min(a,b)<<endl;

return 0;

}

18 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<min(a,b)<<" "<<max(a,b);

return 0;

}

22 tháng 4 2023

Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?

program TichSoChiaHetCho3;

var

      n, i, tich: integer;

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

begin

      tich := 1;

      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]);

            if a[i] mod 3 = 0 then

            begin

                  tich := tich * a[i];

            end;

      end;

      writeln('Tich cac phan tu chia het cho 3 la: ', tich);

      readln;

end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?

program DemSoChanTrongDay;

var

      n, i, tich: integer;

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

begin

      dem := 0;

      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]);

            if a[i] mod 2 = 0 then

            begin

                  dem := dem + 1;

            end;

      end;

      writeln('So phan tu chan trong day la: ', dem);

      readln;

end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?

program HienThiSoNhoHon20;

var

      n, i: integer;

      a: array[1..100] 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]);

            if a[i] <= 20 then

            begin

                  writeln(a[i]);

            end;

      end;

      readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[10],n=10,i,ln;

int main()

{

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

ln=a[1];

for (i=1; i<=n; i++) ln=max(ln,a[i]);

cout<<ln<<endl;

if (ln%2==0) cout<<"Phai";

else cout<<"Khong phai";

return 0;

}

15 tháng 4 2022

program bt;
uses crt;
var i, max : integer;
a : array[1..10] of integer;
begin
        clrscr;
        for i:=1 to 10 do begin
         write('Nhap so thu ',i,': '); readln(a[i]);
        end;
        max := 0;
        for i:=1 to 10 do if a[i] > max then max := a[i];
        if (max mod 2 = 0) then write(max,' la so lon nhat va la so chan')
        else write(max,' la so lon nhat va la so le');
        readln
end.

17 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<max(a,b);

return 0;

}

Câu 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do

s:=s*i;

writeln(s);

readln;

end.

Câu 2: 

uses crt;

var t,i,n:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

sort(a+1,a+n+1);

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

return 0;

}

22 tháng 3 2023

program SapXepMang;
var
  N, i, j, temp: integer;
  arr: array of integer;
begin
  write('Nhap N: ');
  readln(N);
  SetLength(arr, N);
  for i := 0 to N - 1 do
  begin
    write('Nhap phan tu thu ', i + 1, ': ');
    readln(arr[i]);
  end;
  for i := 0 to N - 2 do
    for j := i + 1 to N - 1 do
      if arr[i] < arr[j] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
  writeln('Mang da sap xep theo thu tu giam dan: ');
  for i := 0 to N - 1 do
    write(arr[i], ' ');
  readln;
end.