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.

Bình luận (0)
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.

Bình luận (0)
 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;

}

Bình luận (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)

   
Bình luận (0)
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.

Bình luận (0)
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😉.

Bình luận (0)
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)

Bình luận (0)
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;

}

Bình luận (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.

Bình luận (0)