K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
BA
13 tháng 12 2019
Chức năng của hai câu điều kiện dạng thiếu và đủ là xét tính đúng sai của điều kiện
3 tháng 6 2020
uses crt;
var a,b,c,ucln,bcnn,i,min:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
ucln:=1;
for i:=1 to min do
if (a mod i=0) and (b mod i=0) and (c mod i=0) then
begin
if ucln<i then ucln:=i;
end;
bcnn:=a*b*c;
for i:=a*b*c downto 1 do
if (i mod a=0) and (i mod b=0) and (i mod c=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('Uoc chung lon nhat: ',ucln);
writeln('Boi chung nho nhat: ',bcnn);
readln;
end.
25 tháng 12 2018
1.Xác định bài toán
- Input: Ba số nguyên a, b, c
- Output: Giá trị lớn nhất Max của (a, b, c).
2. Ý tưởng
- Khởi tạo Max = a;
- Nếu b > Max thì Max = b;
- Nếu c > Max thì Max = c.
3. Thuật toán:
B1: Nhập vào ba số nguyên a, b, c
B2: Khởi tạo giá trị Max = a.
B3: So sánh Max với b. Nếu b > Max thì Max nhận giá trị mới là b.
B4: So sánh Max với c. Nếu c > Max thì Max nhận giá trị mới là c.
B5: Đưa ra giá trị Max rồi kết thúc.
ML
27 tháng 4 2019
Lời giải :
program hotrotinhoc ;
var a : array[1..32000] of integer ;
max,i,n : integer ;
begin
write('Nhap do dai cua mang :'); readln(n);
writeln('Nhap gia cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:= 1 to n do
if a[i] > max then max:=a[i] ;
write('So lon nhat trong day so la :',max);
readln
end.
27 tháng 12 2017
program bai1;
var i,n,s:longint;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Tong la ',s);
readl
end.
còn cái nịt
???