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
Vy Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 20:36

uses crt;

var a,b,c,d,i,min:integer;

x:array[1..4]of integer;

begin

clrscr;

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

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

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

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

x[1]:=a;

x[2]:=b;

x[3]:=c;

x[4]:=d;

min:=x[1];

for i:=1 to 4 do 

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

writeln(min);

readln;

end.

Chanh
Xem chi tiết
Em Que
Xem chi tiết
Quỳnh như
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 10 2021 lúc 15:17

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<max(a,b);

return 0;

}

Regina _K
Xem chi tiết
Trường
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 3 2022 lúc 23:24

uses crt;

var a,b,c,nn:integer;

//chuongtrinhcon

function min(var x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

//chuongtrinhchinh

begin

clrscr;

readln(a,b,c);

nn=min(a,b);

nn=min(nn,c);

writeln(nn);

readln;

end.

Linh Nga Nguyễn
Xem chi tiết
Sơn Mai Thanh Hoàng
15 tháng 3 2022 lúc 15:05

1 không

2 

 Program UCLN;

uses crt;

var a,b : integer;

begin

write ('nhap so a la ');readln (a);

write ('nhap so b la ');readln (b);

while a < > b do

if a >b then a := a - b else b := b - a ;

write ( ' UCLN la :' , a );

readln

end.

Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:33

1: 

#include <bits/stdc++.h>

using namespace std;

int n,i;

bool kt;

int main()

{

cin>>n;

kt=true;

for (i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if (kt==true && n>1) cout<<"La so nguyen to";

else cout<<"Khong la so nguyen to";

return 0;

}

h9iii
Xem chi tiết
Võ Đức Dũng
16 tháng 9 2021 lúc 20:57

uses crt;

var a,b,c,max:integer;

begin

clrscr;

write('Nhap a:'); readln(a);

write('Nhap b:'); readln(b);

write('Nhap c:'); readln(c);

max:=-32000;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

Nguyễn Lê Phước Thịnh
16 tháng 9 2021 lúc 20:33

uses crt;

var a,b,c,max:integer;

begin

clrscr;

readln(a,b,c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

Thảo Bùi
Xem chi tiết
𝓗â𝓷𝓷𝓷
14 tháng 4 2022 lúc 15:47

Tham khảo:

undefined