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
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
1 tháng 10 2020
Program HOC24;
const fi='Cau3.INP';
var f: text;
k: char;
s: string;
i: byte;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,s);
read(f,k);
close(f);
end;
begin
ip;
for i:=1 to length(s) do if s[i]=k then write(i,' ');
readln
end.
8 tháng 10 2020
rất l bạn nhưng nó bị dính exit code2
và mik đã ra trên mạng nhưng làm theo thì không chạy đ chương trình
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.
22 tháng 2 2020
uses crt;
var x:int64;
kt,i,n,d,j,kt1,k:integer;
a:array[1..100]of longint;
st:string;
ktnt:boolean;
begin
clrscr;
write('x='); readln(x);
if (0<x) and (x<1000000000) then
begin
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then
begin
str(x,st);
d:=length(st);
for j:=1 to d do
val(st[j],a[j],n);
ktnt:=false;
for j:=1 to d do
begin
kt1:=0;
for k:=2 to a[j]-1 do
if a[j] mod k=0 then kt1:=1;
if kt1=0 then ktnt:=true
else ktnt:=false;
end;
if ktnt=true then writeln(x*2)
else writeln(x div 2);
end
else writeln(x div 2);
end
else writeln('vui long nhap lai');
readln;
end.
15 tháng 1 2020
Bước 1: nhập n
Bước 2: i←1; s←0;
Bước 3: s←s+1/(i*(i+2));
Bước 4: i←i+1;
Bước 5: nếu i<=n thì quay lại bước 3
Bước 6: xuất s
Bước 7: Kết thúc
HN
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.
HN
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.
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
1 tháng 10 2019
Ý tưởng :
- Tính tổng chữ số của X
- Dừng lại khi tổng các chữ số của X có 1 chữ số.
9 tháng 11 2017
Câu 2 :
Dùng Internet để chơi game
Để cá độ bóng đá
Tuyên truyền chống phá nhà nước ...v......v
Tác hại : cơ thể không khỏe mạnh
chết mòn vì game
ăn trộm , cắp để lấy tiền chơi gamme
Câu này mình lên bảng trả bài nên dễ lắm....mình lấy có mấy VD sẵn này thôi..nếu như muốn hỏi gì thêm thì gửi tin nhắn nha bạn ^^
Chúc bạn học tốt
ML
25 tháng 4 2020
Program hotrotinhoc_hoc24;
const fi='CAPSO.INP';
fo='CAPSO.OUT';
var a: array[1..100] of integer;
i,j,n,x,d: integer;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
readln(f);
read(f,x);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for i:=1 to n do
for j:=i to n do
if i+j=x then inc(d);
write(f,d);
close(f);
end;
begin
ip;
out;
end.