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.
ML
29 tháng 9 2019
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.
ML
30 tháng 9 2019
Lời giải:
program hotrotinhoc;
var s: string;
x: longint;
begin
readln(x);
str(x,s);
write(length(s));
readln
end.
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.
VD
1
LY
14 tháng 11 2016
* Quá trình thực hiện gửi thư điện tử:
Các máy chủ được cài đặt phần mềm quản lí thư điện tử, được gọi là máy chủ điện tử, sẽ là “bưu điện”, còn hệ thống vận chuyển của “bưu điện” chính là mạng máy tính. Cả người gửi và người nhận đều sử dụng máy tính với các phần mềm thích hợp để soạn và gửi, nhận thư.
Sóc long