Cho ba số a, b, c. Viết chương trình tìm số lớn nhất và số nhỏ nhất trong 3 số trên.
Những câu hỏi liên quan
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.
Đúng 1
Bình luận (0)
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
Đúng 1
Bình luận (0)
Scratch hay java
Viết chương trình nhập vào ba số nguyên bất kì a, b, c. Tìm số lớn nhất của a, b và c.
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,ln;
int main()
{
cin>>a>>b>>c;
ln=a;
ln=max(ln,b);
ln=max(ln,c);
cout<<ln;
return 0;
}
Đúng 0
Bình luận (0)
Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của các số tự nhiên trong tệp kiemtra.txt lưu trên ổ đĩa Y. Giúp e vs mn ơi
uses crt;
const fi='kiemtra.txt'
var f1:text;
a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Mình xin sửa lại một chút:
uses crt;
const fi='kiemtra.txt'
var f1:text;
a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (4)
Viết chương trình nhập vào một dãy số nguyên, tìm số lớn nhất, số nhỏ nhất, các số chia hết cho 2, và tổng các phần tử trong dãy ạ?
var a:[array] of integer;
i,n,max,min,s:integer;
begin
write('Nhap so luong so n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
max:=a[1];
min:=a[1];
s:=0;
for i:=1 to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
s:=s+a[i];
end;
writeln('So lon nhat la ',max);
writeln('So nho nhat la ',min);
writeln('Tong cac phan tu trong day la ',s);
writeln('Cac so chia het cho 2 la: ');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i],' ');
readln;
end.
Đúng 3
Bình luận (0)
Viết chương trình nhập vào 1 dãy số nguyên ,tìm số nguyên ,tìm số lớn nhất ,số nhỏ nhất ,các số chia hết cho 2,và tổng của các phần tử trong dãy?( giúp mình với).
uses crt;
var a:array[1..100]of integer;
i,n,t,ln,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
ln:=a[1];
nn:=a[1];
t:=0;
for i:=1 to n do
begin
if ln<a[i] then ln:=a[i];
if nn>a[i] then nn:=a[i];
t:=t+a[i];
end;
writeln(ln);
writeln(nn);
writeln(t);
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
var n,i,max,min,s: integer;
a: array[1..100] of integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
s:=s+a[i];
end;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('MAX=',max,' | MIN=',min);
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;
write('Tong = ',s);
readln
end.
Đúng 1
Bình luận (0)
1) Viết chương trình nhập vào số tự nhiênn có m chữ số(0<m<10) tìm số nhỏ nhất và lớn nhất.
2) Nhập vào số thực A, tìm số tự nhiên N nhỏ nhất sao cho S=1+1/2+1/3+1/4+...+1/N. Xin cảm ơn.
Câu 6. Xác định Input, output, mô tả thuật toán và viết chương trình giải các bài toán:
a. Sắp xếp 2 số a, b theo thứ tự không tăng, không giảm.
b.Tìm giá trị lớn nhất, nhỏ nhất trong 3 số a, b, c.
viết chương trình nhập mảng 1 chiều chứa tối đa 100 số
a : tìm số lớn nhất số nhỏ nhất trong mảng
b : tìm vị trí số lớn nhất, nhỏ nhất
c : tính tổng tất cả các số trong mảng
d : tính tổng các số 0 vị trí chẵn trong mảng
e : tính tổng các số âm 0 vị trí lẻ trong mảng