B

B

Olm chào em, khi đăng câu hỏi lên diễn đàn Olm, em cần đăng đầy đủ nội dung và yêu cầu, để nhận được sự trợ giúp tốt nhất từ cộng đồng Olm em nhé. Cảm ơn em đã đồng hành cùng Olm. Chúc em học tập hiệu quả và vui vẻ cùng Olm.

Phải chịu

lên mạng tra đi móa

đầu tiên bạn bấm vào phần ví của tôi.

bước 2 bạn bấm vào phần đổi quà là được nha.

1 vào nộp bài

2 nộp bài

3 đợi

bn để ý kĩ có nút"nộp bài" ạ!

Có từ khóa trong câu hỏi mới không hiển thị

Olm chào em, cô check câu hỏi rồi, em nhé. Câu trả lời của em có chứa ảnh nên bị hệ thống ẩn tự động, không phải do em chứa từ cấm.

kid

Lời giải:

program hotrotinhoc;

var max,min,i,x,k: integer;

begin

write('X='); readln(x);

write('K='); readln(k);

min:=32000; max:=0;

for i:=1 to x do if (x mod i=0) then

begin

(min>i) then min:=i;

if (max<i) then max:=i;

end;

writeln(min,' ',max);

write(sqr(x),' ',k-x);

readln

end.

program hoidaptinhoc;
uses crt;
var K,N,X,Y,M,i : longint;
z : string;
BEGIN
clrscr;
writeln('Nhap so dong trong moi trang cua quyen sach: '); readln(K);
writeln('Nhap so thu tu cua dong: '); readln(N);
if (N mod K) = 0 then begin X:=N div K; Y:=K end;
if (N mod K) <> 0 then begin X:= (N div K) + 1; Y:=N mod K end;
M:=0;
for i:=1 to X do
begin
str(i,z);
M:=M+length(z);
end;
writeln('X= ',X,' Y= ',Y);
writeln('M= ',M);
readln;
END.