TD
1
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
VT
1
NA
0
QT
0
TT
1
NL
Nguyễn Lê Phước Thịnh
CTVHS
31 tháng 5 2020
uses crt;
const f='bcnn.out';
var f1:text;
a,b,i,bcnn:longint;
begin
clrscr;
assign(f1,f); rewrite(f1);
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b;
for i:=a*b downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(f1,bcnn);
close(f1);
readln;
end.
ML
31 tháng 5 2020
Program HOC24;
var a,bcnn,b: integer;
f: text;
function bcnn(x,y: integer): integer;
var tg: integer;
t: longint;
procedure out;
begin
assign(f,fo);
rewrite(f);
write(f,bcnn(a,b));
close(f);
end;
begin
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
out;
readln
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
30 tháng 12 2020
uses crt;
var a:array[1..200]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 200 do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac phan tu le nho hon 200 la: ');
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i]<200) then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if (50<a[i]) and (a[i]<80) then t:=t+sqr(a[i]);
writeln('Tong binh phuong cac phan tu thuoc khoang (50;80) la: ',t);
readln;
end.
đang thi mik ko giúp đc, xin lỗi nha
Bh bạn thi xong vậy ạ
bh là gì vậy
Bao giờ bạn thi xong ạ
xắp r
Cảm ơn bạn nhìu
Làm 3 câu cuối là đc rùi bạn ơi
ok bn
bn đang thi à
Kiểm tra bạn ạ
ồ