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.

14 tháng 4

n = int(input("Nhập số tự nhiên n: "))
while n <= 0:
    print("Vui lòng nhập một số tự nhiên lớn hơn 0.")
    n = int(input("Nhập lại số tự nhiên n: "))
while n > 10**5:
    print("Vui lòng nhập một số tự nhiên nhỏ hơn hoặc bằng 10^5.")
    n = int(input("Nhập lại số tự nhiên n: "))
print("Các số nguyên từ", n, "đến 1 là:")
for i in range(n, 0, -1):
    print(i)

uses crt;

var n,i,d,max,x,y:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

max:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

if max<x then max:=x;

end;

writeln(max);

readln;

end.

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2==0) cout<<"Chan";

else cout<<"Le";

return 0;

}

18 tháng 10 2023

Ngôn ngữ: C++

#include <bits/stdc++.h>

using namespace std;
long long n;
long long minx=LLONG_MAX;
long long a[100000];
int main()
{
    cin>>n;
    for(int i=1;i<=n;i++){
        cin>>a[i];
    }
    sort(a+1,a+n+1);
    for(int i=2;i<=n;i++){
        minx=min(minx,a[i]-a[i-1]);
    }
    cout<<minx;
    return 0;
}

18 tháng 10 2023

Dùng Pascal hộ mình ạ

 

4 tháng 4 2023

cứu m vs

 

20 tháng 1 2022

program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.

mk mới làm tổng thui nghen

20 tháng 1 2022

còn hiệu với tích ko ạ

28 tháng 8 2021

uses crt;

var n,i,o,d:integer;

function ktnt(n:integer): integer;

var i,d:integer;

begin

d:=0;

for i:=1 to sqrt(n) do

if (n mod i=0) then d:=d+1;

if d=2 then ktnt=0

else ktnt=1;

end;

begin

readln(n);

writeln(' so nguyen to be hon hoac bang n la'); {a}

for i:=1 to n do

if ktnt(i)=0 then writeln(i);

writeln('so nguyen to nho nhat khong be hon n');

o:=n;

while o>0 do

begin

if ktnt(o)=0 then

begin

write(o);

break;

end;

o:=o+1;

end;

writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');

o:=0;

o:=1;

d:=0;

for i:=o+2 to n do

begin

if ktnt(i)=0 then

begin

d:=d+1;

write(i,' ');

if d<2 then continue;

end;

d:=0;

writeln;

end;

readln;

end.

28 tháng 8 2021

Mình nói thật nhé là ko có 2 số lẽ liên tiếp nhé

vd n+2 với n là 1

thì số lẻ tiếp theo của nó là (n+2)+2 tức n+4 đấy còn liên tiếp (n+2)+1 là ko bao giờ xãy ra

 

27 tháng 2 2023

var A:

     array[1..n] of int64;

     i, n, count: integer;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhap phan tu thu ', i, ': ');

          readln(A[i]);

      end;

 

     count := 0;

     for i := 1 to n do

          if A[i] > 0 then

               count := count + 1;

     writeln('So luong cac so nguyen duong trong mang la: ', count); end.

Câu 2: 

 Lọc dữ liệu là chọn và chỉ hiển thị các hang thỏa mãn các tiêu chuẩn nhất định nào đó.

VD như là lọc hàng có giá trị lớn nhất, nhỏ nhất