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
8 tháng 10 2019
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.
5 tháng 5 2020
Câu 1: D. Ctrl
Câu 2: C. Nháy chuột phải → Delete Slide
Câu 3: (Bạn nên nói rõ nút lệnh nào nhé)
Câu 4: C. File → Close
Nếu thấy đúng nhớ tick cho mình nhé! Chúc bạn học tốt! 
ML
8 tháng 10 2020
Program HOC24;
const fi='Cau1.INP';
fo='Cau2.OUT';
var i,a,b,c,t,d: integer;
f: text;
function ucln(x,y: integer): integer;
var t: integer;
begin
while y<>0 do
begin
t:= x mod y;
x:=y;
y:=t;
end;
ucln:=x;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b,c);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
for i:=b to c do
begin
if i mod a=0 then write(f,i,' ');
t:=t+i;
end;
writeln(f);
while t<>0 do
begin
t:=t div 10;
inc(d);
end;
writeln(f,d);
if ucln(a,b,c)=1 then write(f,1) else write(f,0);
close(f);
end;
begin
ip;
out;
end.
NT
1
NT
Nguyễn Thị Thương Hoài
Giáo viên
VIP
19 tháng 9 2025
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.
hello cac b to la tuan le
Lord