Những câu hỏi liên quan
Pham Gia Khanh
Xem chi tiết
Phat NotFound
Xem chi tiết
Nguyễn Đăng Nhân
25 tháng 8 2023 lúc 21:41

Mình sử dụng ngôn ngữ c++:

#include <bits/stdc++.h>

using namespace std;
long long a[5];
int main()
{
    for(int i=1;i<=4;i++){
        cin>>a[i];
    }
    sort(a+1,a+5);
    cout<<a[1];
    return 0;
}

Bình luận (0)
Phương Vũ Hà
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 3 2021 lúc 17:19

uses crt;

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

n,i,k,max,min,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln('Gia tri lon nhat la: ',max);

writeln('Vi tri la: ');

for i:=1 to n do 

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

writeln;

min:=a[1];

for i:=1 to n do

  if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat la: ',min);

writeln('Vi tri la: ');

for i:=1 to n do

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

writeln;

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+sqr(a[i]);

writeln('Tong binh phuong cac gia tri o vi tri chan la: ',t);

readln;

end. 

Bình luận (0)
9/2 Ngân
Xem chi tiết
Phía sau một cô gái
6 tháng 3 2023 lúc 15:06

a = int(input('Nhập số nguyên a: '))

b = int(input('Nhập số nguyên b: '))

c = int(input('Nhập số nguyên c: '))

if a > b and a > c:

          print('Số lớn nhất là a =', a)

elif b > a and b > c:

          print('Số lớn nhất là b =', b)

else:

          print('Số lớn nhất là c =', c)

Bình luận (0)
Duy Anh Phạm
Xem chi tiết
Nguyễn Tuấn Anh Trần
21 tháng 2 2022 lúc 21:44

Program HOC24;

const fi='cau2.inp'

fo='cau2.out'

var dt,a,b,c: integer;

procedure ip;

begin

assign(f,fi);

reset(f); 

Bình luận (0)
Duy Anh Phạm
21 tháng 2 2022 lúc 21:45

viết bằng c++ ạ

 

Bình luận (0)

#include <bits/stdc++.h>

using namespace std;

int main() {
    ios_base::sync_with_stdio(false);
    cin.tie(NULL);
    cout.tie(NULL);
    long long a,b,c; cin>>a>>b>>c;
    cout<<max(a,max(b,c));
    return 0;
}

 

Bình luận (0)
feng
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 5 2022 lúc 10:07

uses crt;

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

n,i,t,nn,kt:integer;

begin

clrscr;

readln(n);

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

t:=1;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t*a[i];

writeln(t);

kt:=0;

nn:=32567;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

if nn>a[i] then nn:=a[i];

kt:=1;

end;

if kt=0 then writeln('Khong co so chia het cho 3')

else writeln('So nho nhat chia het cho 3 la: ',nn);

for i:=1 to n do 

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

writeln;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.

Bình luận (1)
Long Phan
Xem chi tiết
le thao
Xem chi tiết
Rin Huỳnh
8 tháng 9 2021 lúc 18:27

C++:

#include <iostream>

Using namespace std;

Int main(){

Cin>>n;

Cout<<endl;

Cout<<3*n<<endl;

Return 0;

}

 

Bình luận (0)
Rin Huỳnh
8 tháng 9 2021 lúc 13:19

Viết chương trình Pascal à bạn?

Bình luận (1)
Rin Huỳnh
8 tháng 9 2021 lúc 13:22

Uses crt;

Var n:longint;

Begin

Readln(n);

Writeln(3*n);

Readln

End.

Bình luận (2)
Nguyễn Đức Anh Khoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 1 2021 lúc 12:30

const fi='tong.inp'

fo='tong.out'

var f1,f2:text;

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

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

Bình luận (0)