Tìm giá trị lớn nhất trong 3 số nguyên a,b,c ( với a,b,c được nhập từ bàn phím
Tìm giá trị nhỏ nhất trong 4 số a,b,c,d( a,b,c,d được nhập từ bàn phím) sử dụng câu lệnh for... do
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.
Viết chương trình tìm giá trị lớn nhất/giá trị nhỏ nhất của 3 số nguyên được nhập vào từ bàn phím (python).
Lập trình tìm giá trị lớn nhất của 3 số nguyên x,y,z được nhập từ bàn phím
viết chương trình nhập vào từ bàn phím 2 số nguyên a,b đưa ra màn hình giá trị lớn nhất trong chúng
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<max(a,b);
return 0;
}
Mô tả thuật toán tìm giá trị lớn nhất, nhỏ nhất trong 1 dãy số gồm n số nguyên được nhập từ bàn phím?
viết chương trình tìm giá trị nhỏ nhất trong 3 số a,b,c nhập từ bàn phím sử dụng hàm tìm số nhỏ nhất trong 2 số x và y
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.
Bài 1: VCT kiểm tra 1 số nguyên nhập từ bàn phím có phải số nguyên tố không?
Bài 2: VCT tìm ước chung lớn nhất của 2 số nguyên a, b được nhập từ bàn phím?
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.
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;
}
VCT nhập 3 số a,b,c từ bàn phím. Tìm số lớn nhất trong 3 số đó
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.
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.
Viết chương tìm số lớn nhất trong 3 số a,b và c nhập từ bàn phím