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
bich lien
Xem chi tiết
Hồn Của Đá
29 tháng 12 2016 lúc 11:20

-so sanh hai so nhap tu ban phim:

var a,b:integer;

begin

clrscr;

write('Nhap so thu nhat:');readln(a);

write('Nhap so thu hai:');readln(b);

if a>b then writeln(a,'lon hon',b)

else writeln(a,'nho hon,'b);

if a=b then writeln(a,'bang',b);

readln;

end.

myungyeon
12 tháng 4 2017 lúc 17:12

program ctdt;
uses crt;
type mang=array[1..10]of integer;
var a,b,min,x,y,i,j,tam:integer;
t,t1:mang;
(*------------------------*)
BEGIN
clrscr;
(*cau a*)
write('nhap 2 so:');readln(a,b);
if a>b then writeln(a,' lon hon ',b);
if a=b then writeln(a,' bang ',b);
if a<b then writeln(a,' nho thua ,b);
(*cau b*)
for i:=1 to 4 do {dua 4 so vao 1 mang}
begin
write(so thu ',i,' :');readln(t[i]);
end;
min:=t[1];
for i:=2 to 4 do
if t[i]<min then min:=t[i];
writeln('so nho nhat trong bon so:',min);
(*cau c*)
write('nhap hai so x,y:');readln(x,y);
if x>y then
begin
tam:=x;
x:=y;
y:=tam;
end;
(*cau d*)
for i:=1 to 3 do {dua 3 so vao mot mang}
begin
write(' so thu ',i,': ');readln(t1[i]);
end;

for i:=1 to 3-1 do
for j:=i+1 to 3 do
if t1[j]>t1[i] then
begin
tam:=t1[j];
t1[j]:=t1[i];
t1[i]:=tam;
end;
for i:=1 to 3 do
write(t1[i]);

readln;
end.

bai nay con vai loi sai nho

ban nen chay tung cau mot va khoa cac cau con lai bang lenh {...}

Minh Lệ
Xem chi tiết
Quoc Tran Anh Le
18 tháng 11 2023 lúc 17:08

Thịnh Huỳnh
Xem chi tiết
Nguyễn Hoàng Minh
27 tháng 10 2021 lúc 14:39

#include <bits/stdc++.h>

using namespace std;

int x,y;

int main()

{

cin>>x>>y;

cout<<"Gia tri cua x la: "<<x;

cout<<"\nGia tri cua y la: "<<y;

Return 0;

}

KenShi
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 0:39

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin >>x>>y;

cout<<x<<" "<<y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

My Nguyen
Xem chi tiết
Hoài Right
Xem chi tiết
nguyễn an phát
23 tháng 5 2022 lúc 17:52

program max;

uses crt;

var i,n,max:integer;

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

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

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

end;

writeln('gia tri lon nhat trong day tren la: ',max);

readln;

end.

Kiều Vũ Linh
23 tháng 5 2022 lúc 18:28

var i,n,max:integer;

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

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

writeln('gia tri lon nhat trong day tren la: ',max);

readln;

end.

Bảo Nam
25 tháng 5 2022 lúc 15:56

var i,n,max: integer;

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

begin

readln(n);

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

max:=a[1];

for i:=2 to n do if max<a[i] then max:=a[i];

write(max);

readln

end.

Kina Kinosu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 10 2021 lúc 23:31

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<a*b*c;

return 0;

}

Quỳnh Như Lê
Xem chi tiết
Biên Vi
Xem chi tiết
Minh Nhân
5 tháng 4 2021 lúc 20:03

Tham khảo !

program trung_binh;

uses crt;

var n,i:integer;

tb:real;

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

begin

clrscr;

write('nhap n:');readln(n);

writeln('nhap day so:');

for i:=1 to n do

begin

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

end;

tb:=0;

for i:=1 to n do tb:=tb+a[i];

tb:=tb/n;

write('trung binh cong cua day so vua nhap la:',tb:2:2);

readln;

end.

Nguyễn Lê Phước Thịnh
6 tháng 4 2021 lúc 12:43

uses crt;

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

i,n,tb:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

tb:=0;

for i:=1 to n do 

  tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

Thành Tài
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:58

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a+b<<endl;

cout<<a*b<<endl;

swap(a,b);

cout<<a<<" "<<b;

return 0;

}