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
Nguyễn Thanh Anh
Xem chi tiết
Nguyễn Thanh Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2022 lúc 14:33

uses crt;

var n,x,i,lt,gt:int64;

begin

clrscr;

readln(n);

gt:=1;

for i:=1 to n do gt:=gt*i;

writeln(gt);

readln(x);

lt:=1;

for i:=1 to x do 

lt:=lt*n;

writeln(lt);

readln;

end.

Phạm Thị Đông Nhi_HDI
Xem chi tiết
shitbo
21 tháng 6 2020 lúc 16:54

program hello;

uses crt;

Var n,i,j,k: integer;

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

begin;

a[1]:=k;

Readln(n);

For i:=1 to n do

Begin;

Writeln('nhap a[',i,'] '); Readln(a[i]);

End;

For i:=1 to n-1 do

For j:=i+1 to n do

If a[i]<a[j] then k:=a[j];

Writeln('gia tri lon nhat la', k);

end.

Khách vãng lai đã xóa
Nguyễn Bảo Việt
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 0:18

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

Dang2009 Trần
Xem chi tiết
Givemesome Flan
Xem chi tiết
Phía sau một cô gái
15 tháng 2 2023 lúc 16:18

n = int(input("Nhập số phần tử: "))

# Tạo một mảng các phần tử

arr = []

# Nhập các phần tử vào mảng

for i in range(n):

      arr.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))

# Tính tổng các phần tử chia hết cho 3

total = 0

for num in arr:

      if num % 3 == 0:

            total += num

# Xuất tổng ra màn hình

print("Tổng các phần tử chia hết cho 3 là:", total)

   
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😉.

Givemesome Flan
Xem chi tiết
Phía sau một cô gái
15 tháng 2 2023 lúc 16:27

n = int(input("Nhập số phần tử: "))

# Tạo một mảng các phần tử

arr = [ ]

# Nhập các phần tử vào mảng

for i in range(n):

     arr.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))

# Tính tổng các phần tử chia hết cho 3 và 5

total = 0

for num in arr:

     if num % 3 == 0 and num % 5 == 0:

          total += num

# Xuất tổng ra màn hình

print("Tổng các phần tử chia hết cho 3 và 5 là:", total)

Givemesome Flan
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 2 2023 lúc 7:48

#include <bits/stdc++.h>

using namespace std;

int A[1000],t,n;

int main()

{

cin>>n;

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

t=0;

for (int i=1; i<=n; i++)

if (A[i]%3==0 || A[i]%5==0) t+=A[i];

cout<<t;

return 0;

}

baopham
Xem chi tiết
Lê Thị Ngọc Bích
27 tháng 2 2023 lúc 19:51

uses crt;

var i,n:integer;

begin

clrscr;

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

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.