viết chương trình tìm số lớn nhất trong hai sô nguyên a,b
Những câu hỏi liên quan
Viết chương trình tìm số lớn nhất trong 2 số nguyên a b
Xem chi tiết
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln('So lon nhat trong hai so la: ',a);
if b>a then writeln('So lon nhat trong hai so la: ',b);
if a=b then writeln('Hai so bang nhau');
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.
Đúng 0
Bình luận (0)
1.Viết chương trình nhập số nguyên n. Hãy tìm chữ số lớn nhất của n.
2. Viết chương trình nhập từ bàn phím 2 số nguyên a và b. Tìm BCNN của a và b
program tim_chu_so;
uses crt;
var i,n,csln:longint;
k:integer;
a:array[1..1000]of longint;
st:string;
begin
clrscr;
write('nhap so n:');readln(n);
str(n,st);
val(st,a[i]);
csln:=a[1];
for i:=1 to length(st) do
if csln<a[i] then csln:=a[i];
writeln('chu so lon nhat cua so ',n,' la:',csln);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1:
uses crt;
var n,i,d,x,y,max:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
max:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if max<x then max:=x;
end;
writeln('Chu so lon nhat la: ',max);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a,b,i,bcnn:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn<i then bcnn:=i;
end;
writeln('Boi chung nho nhat la: ',bcnn);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình sử dụng biến mảng nhập n số nguyên. In ra màn hình dãy số vừa nhập:a)Đếm số chẵn trong dãy số vừa nhậpb)Tính tổng các số trong dãyc)Tính tổng các sô chẵn trong dãyd)Tính trung bình cộng các số chẵn trong dãye)Tìm ra số lớn nhất trong dãy và in ra vị trí của số lớn nhấtf)Tìm ra số nhỏ nhất trong dãy và in ra vị trí của số nhỏ nhấtg) Tính trung bình cộng các số trong dãy
Đọc tiếp
Viết chương trình sử dụng biến mảng nhập n số nguyên. In ra màn hình dãy số vừa nhập:
a)Đếm số chẵn trong dãy số vừa nhập
b)Tính tổng các số trong dãy
c)Tính tổng các sô chẵn trong dãy
d)Tính trung bình cộng các số chẵn trong dãy
e)Tìm ra số lớn nhất trong dãy và in ra vị trí của số lớn nhất
f)Tìm ra số nhỏ nhất trong dãy và in ra vị trí của số nhỏ nhất
g) Tính trung bình cộng các số trong dãy
1.Xác định bài toán và mô tả thuật toán tìm số lớn nhất trong 3 số nguyên x,y,z được nhập vào từ bàn phím.
2. Viết chương trình nhập từ bàn phím số nguyên n (|n| <_ 10^9o). KIểm tra n có phải là sô snguyeen dương và chia hết cho 5.
XIN MỌI NGƯỜI GIÚP MÌNH VỚI Ạ! MÌNH CÁM ƠN
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
Đúng 1
Bình luận (0)
1. Viết chương trình tạo tệp baitap.txt trong đó dòng đầu tiên n là số lượng các số nguyên, dòng thứ 2 là n số nguyên cách nhau 2 kí tự trắng được nhập từ bàn phím (N<=100)
2.Viết chương trình tìm số nguyên lớn nhất trong n số nguyên đã có trong tệp baitap.txt và ghi kết quả vào tệp solonnhat.txt
Mong mọi người giúp mình giải sớm =(((
Câu 2:
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con-------------------}
function ucln(x,y:integer):integer;
var i,uc:integer;
begin
if x<y then
begin
uc:=1;
for i:=1 to x do
if (x mod i=0) and (y mod i=0) then
begin
if uc<i then uc:=i;
end;
end
else begin
uc:=1;
for i:=1 to y do
if (x mod i=0) and (y mod i=0) then
begin
if uc<i then uc:=i;
end;
end;
ucln:=uc;
end;
{--------------------------chuong-trinh-chinh------------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln(a,'/',b,'=',a div ucln(a,b),'/',b div ucln(a,b));
readln;
end.
Đúng 2
Bình luận (0)
Câu 1:
const fi='songuyen.inp'
fo='tong.out'
var f1,f2:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào một dãy số nguyên a gồm có k phần tử (0 <= k <=100), viết đoạn chương trình xử lý các công việc: a. Tìm và in ra số lớn nhất, số bé nhất trong dãy a, vị trí của các số này. b. Đọc một số x từ bàn phím (0 <= x <= 500), chèn x vào dãy sao cho thứ tự dãy không đổi, in dãy sau khi chèn và vị trí đã chèn x vào dãy.
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)
viết chương trình tìm số nguyên lớn nhất trong n số nguyên đã có trong tệp baitap.txt và ghi vào tệp solonnhat.txt
Uses crt; Var f1,f2:text; i,n,max:integer; a:array[1..100] of integer; Begin Assign(f1,'baitap.txt');reset(f1); Assign(f2,'solonnhat.txt');rewrite(f2); While not eof(f1) do Begin Read(f1,n,a[i]); Max:=a[1]; For i:=2 to n do if a[i]>max then max:=a[i]; End; Writeln(f2,'solonnhatla:',max); Close(f1);close(f2); End.
Đúng 0
Bình luận (0)
uses crt;
var n,max :integer;
f1,f2:text;
begin
clrscr;
assign(f1,'baitap.txt'); reset(f1);
assign(f2,'solonhat.txt'); rewrite(f2);
max:=0;
while not eof(f1) do
begin
read(f1,n);
if max <n then max:=n;
end;
writeln('solonhatla: ',max:5);
write(f2,max);
close(f1);close(f2);
readln;
end.
Đúng 0
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