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

uses crt;

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

i,n,nn,s:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

s:=1;

for i:=1 to n do 

begin

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

s:=s*a[i];

end;

writeln(nn);

writeln(s);

readln;

end.

HGFDAsS
Xem chi tiết

B

Nguyễn Hà Giang
7 tháng 12 2021 lúc 8:09

B

๖ۣۜHả๖ۣۜI
7 tháng 12 2021 lúc 8:09

D

Tuấn Vũ Trương
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 12 2021 lúc 13:58

uses crt;

var a:integer;

begin

clrscr;

readln(a);

writeln(a*4);

writeln(a*a);

readln;

end.

Hoàng Ngọc Hậu
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2022 lúc 16:20

a: Input: Dãy các số nguyên

Output: Tổng của dãy đó

c: 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

Uyển Lộc
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:45

c: 

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<a*b;

return 0;

}

Mai Phương Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:14

Bài 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:14

Bài 2: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

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

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:14

Bài 3: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.

V.Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:58

uses crt;

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

i,t,t1:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

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

end;

t:=0;

for i:=1 to 10 do 

if a[i] mod 2<>0 then 

begin

write(a[i]:4);

t:=t+a[i];

end;

writeln;

writeln('Tong cac so le la: ',t);

t1:=0;

for i:=1 to 10 do

t1:=t1+a[i];

writeln('Tong cac phan tu cua mang la: ',t1);

readln;

end.

Huỳnh Anh Kỳ 8/9
Xem chi tiết
Duydash
7 tháng 11 2021 lúc 20:24

Program hoan_doi;

uses crt;

var x,y,temp:Integer;

 

begin

x:=3;y:=7;

Writeln('Gia tri cua x truoc khi doi: ',x);

Writeln('Gia tri cua y truoc khi doi: ',y);

temp:=x;

x:=y;

y:=temp;

Writeln('Gia tri cua x sau khi hoan doi: ',x);

Writeln('Gia tri cua y sau khi hoan doi: ',y);

Readln();

end.

Mô tả: Khai báo 3 biến kiểu số nguyên

-Ta gán 3 cho biến x, gán 7 cho biến y

-Sau đó gán giá trị của biến x cho biến temp (để lưu trữ giá trị của biến x);

-Ta gán giá trị của biến y cho biến x (lúc này giá trị của biến x đã bị đổi);

-Rồi gán giá trị của biến temp cho biến y (Giá trị không bị thay đổi theo biến x bởi vì trước khi thay đổi giá trị của biến x thành giá trị của biến y ta đã gán giá trị trước đó của biến x cho biến temp)

 

nguyễn khánh
Xem chi tiết
nguyễn khánh
30 tháng 12 2021 lúc 9:13

ai giúp mình đi

 

Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 15:20

#include <bits/stdc++.h>

using namespace std;

long long a,cv,dt;

int main()

{

cin>>a;

cv=a*4;

dt=a*a;

cout<<cv<<endl;

cout<<dt;

return 0;

}