Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
HOÀNG ĐẠI PHÚC
Xem chi tiết
Khanhh Dương
Xem chi tiết
Minh Lệ
26 tháng 2 2023 lúc 18:45

Bạn bổ sung thêm đề nhé

Lê Huỳnh Nhân
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:56

2:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,kt=0;

cin>>n;

for (int i=2; i*i<=n; i++)

if (n%i==0) kt=1;

if (kt==0) cout<<"YES";

else cout<<"NO";

}

Phạm Phương
Xem chi tiết
Nguyễn Gia Viễn
Xem chi tiết
Thuỳ Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2021 lúc 23:01

uses crt;

var a,b:array[1..100]of integer;

i,n,max,dem,j,kt,dem1,sct:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=1;

b[1]:=a[1];

for i:=1 to n do

begin

kt:=0;

for j:=1 to dem do 

  if b[j]=a[i] then kt:=1;

if kt=0 then

begin

inc(dem);

b[dem]:=a[i];

end;

end;

max:=0;

for i:=1 to dem do 

  begin

dem1:=0;

for j:=1 to n do 

if b[i]=a[j] then inc(dem1);

if max<dem1 then 

begin

max:=dem1;

sct:=b[i];

end;

end;

writeln('So xuat hien nhieu nhat la: ',sct);

writeln('So lan xuat hien la: ',max);

readln;

end.

Lân Trần Quốc
30 tháng 3 2021 lúc 23:09

Tư tưởng: Sort mảng a tăng dần, khi đó các phần tử giống nhau sẽ nằm cạnh nhau, rồi ta duyệt từ đầu đến cuối và đêm.

Code (C++): https://gist.github.com/minotour4869/7421de6e4c0ba475babc5c52c3a13728

Chúc bạn học tốt nha😉.

Nguyen Bảo Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 4 2021 lúc 20:14

uses crt;

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

i,n,k,h,dem,t,dem1,dem2,t1,t2:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

n:=100;

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

for i:=1 to n do 

  if a[i]=k then write(i:4);

writeln;

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

dem:=0;

for i:=1 to n do 

  if a[i]=h then inc(dem);

writeln(h,' xuat hien ',dem,' lan trong mang');

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu cua day la: ',t);

dem1:=0;

t1:=0;

dem2:=0;

t2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then

begin

inc(dem1);

t1:=t1+a[i];

end;

if a[i]<0 then 

begin

inc(dem2);

t2:=t2+a[i];

end;

end;

writeln('Co ',dem1,' so duong');

writeln('Tong cac so duong la: ',t1);

writeln('Co ',dem2,' so am');

writeln('Tong cac so am la: ',t2);

readln;

end. 

Nguyễn Trần Cảnh Nam
8 tháng 4 2021 lúc 22:07

bằng c++ hay pascal?

 

Thanh sang
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 4 2023 lúc 20:38

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

readln(k);

dem:=0;

for i:=1 to n do

if a[i]>k then inc(dem);

write(dem);

readln;

end.

Ngô Bá Hùng
17 tháng 4 2023 lúc 20:36

python hay pascal

Ngô Bá Hùng
17 tháng 4 2023 lúc 20:41

program countGreaterThanK;
var
  A: array[1..100] of integer;
  N, K, count: integer;
  i: integer;
begin
  write('Nhap so phan tu cua day A (<=100): ');
  readln(N);
  write('Nhap gia tri K: ');
  readln(K);
  count := 0;
  for i := 1 to N do
  begin
    write('Nhap phan tu thu ', i, ' cua day A: ');
    readln(A[i]);
    if A[i] > K then
      count := count + 1;
  end;
  writeln('So phan tu co gia tri lon hon K la: ', count);
end.

 

Trần Long
Xem chi tiết