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.

15 tháng 4

Olm chào em, cảm ơn đánh giá của em về chất lượng bài giảng của Olm, cảm ơn em đã đồng hành cùng Olm trên hành trình tri thức. Chúc em học tập hiệu quả và vui vẻ cùng Olm em nhé!


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.

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.

30 tháng 9 2019

Bạn ơi ko đc đâu

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.

Câu 1:

Sau khi sưu tầm được nhiều ảnh đẹp về phong cảnh quê hương em, nếu muốn gửi cho các bạn ở nơi xa, em có thể sử dụng dịch vụ Thư điện tử(Email)  trên Internet.

Câu 2: 

 Khi đặt mua vé xem 1 trận bóng đá của đội bóng em yêu thích qua Internet, em đã sử dụng loại dich vụ thương mại điện tử trên Internet

11 tháng 12 2016

thanks bn

bn cũng zậy ha

11 tháng 12 2016

s cj k chúc e. huhuhuhu

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ư.

13 tháng 1 2022

ko hỉu calli

24 tháng 7 2018

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

write('Sai tự chịu: ',S);

readln;

end.

24 tháng 7 2018

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

writeln('Sai tự chịu: ',S);

readln;

end.