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.
Program HOC24;
var st,st1,st2: string;
i,n,d,k,j: integer;
t,m: longint;
a: array[1..10000] of integer;
f: text;
const fi='SUBSUM.INP' ;
fo = 'SUBSUM.OUT' ;
Procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n,m);
for i:=1 to n do read(f,a[i]);
close(f);
end;
Procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for i:=1 to n-1 do
Begin
If a[i]=m then d:=d+1;
for j:=i+1 to n do
begin
t:=0;
for k:=i to j do t:=t+a[k];
if t=m then d:=d+1;
end;
End;
if a[n]=m then d:=d+1; write(f,d);
close(f);
end;
Begin
ip;
out;
End.
uses crt;
Var i,n,dem:integer;
a: array[1..1000] of integer;
Begin
clrscr;
Write('Nhap do dai cua day: ');readln(n);
dem:=0;
for i:= 1 to n do
Begin
write('So thu ',i,' = ');
readln(a[i]);
if a[i] mod 2 = 0 then inc(dem);
end;
Writeln('Day so co ',dem,' so chan');
readln;
End.
Program HOC24;
var st,st1,st2: string;
i: byte;
f: text;
const fi='SPLIT.INP ' ;
fo = 'SPLIT.OUT' ;
Procedure ip;
begin
assign(f,fi);
reset(f);a
read(f,st);
close(f);
end;
Procedure out;
begin
assign(f,fo);
rewrite(f);
st1:=''; st2:='';
for i:=1 to length(st) do
begin
if st[i] in ['A'..'z'] then st1:=st1+st[i];
if st[i] in ['0'..'9'] then st2:=st2+st[i];
end;
writeln(f,st1);
write(f,st2);
close(f);
end;
Begin
ip;
out;
End.
program abcdef;
uses Crt;
var
k, lowerLimit, upperLimit, i, j, reversed, temp, remainder: integer;
isPrime, isPalindrome: boolean;
begin
clrscr;
write('Nhap so chu so k (1<=k<=9): ');
readln(k);
lowerLimit := 1;
for i := 1 to k - 1 do
lowerLimit := lowerLimit * 10;
upperLimit := lowerLimit * 10 - 1;
writeln('Cac so nguyen to doi xung co ', k, ' chu so la:');
for i := lowerLimit to upperLimit do
begin
// Kiểm tra số nguyên tố
isPrime := True;
if i < 2 then
isPrime := False
else
for j := 2 to trunc(sqrt(i)) do
if i mod j = 0 then
beginisPrime := False;break;end;
// Kiểm tra số đối xứng
if isPrime then
begin
reversed := 0;
temp := i;
while temp <> 0 dobeginremainder := temp mod 10;
reversed := reversed * 10 + remainder;
temp := temp div 10;
end;
isPalindrome := (i = reversed);
if isPalindrome then
writeln(i);
end;
end;
readln;
end.
Chương trình trên cho phép người dùng nhập vào dãy số và giá trị K. Sau đó, chương trình sẽ tìm tất cả các đoạn con trong dãy có tổng bằng K và in chúng ra màn hình.
Ví dụ, với dãy số [1, 2, 3, 4, 5] và K = 7, chương trình sẽ in ra:
2 3 4 5 2Đây là tất cả các đoạn con có tổng bằng 7 trong dãy số đã cho.
Công việc trên máy tính | Cần kết nối mạng máy tính |
1. Soạn thảo văn bản bằng Word |
|
2. Lập trình Pascal |
|
3. Tạo bảng tính bằng Excel |
|
4. Đọc báo điện tử từ Internet | x |
5. Chat với bạn bè trên Facebook | x |
6. Gửi/nhận thư điện tử | x |
7. Học tiếng Anh trực tuyến | x |
8. Sử dụng Google để tìm kiếm thông tin | x |
9. Trao đổi thông tin, dữ liệu (chat, email, …) | x |
10. Sử dụng dịch vụ trên mạng (học trực tuyến, tìm kiếm thông tin, …) | x |
11. Sử dụng chung thiết bị phần cứng (máy in, thiết bị lưu trữ, …) |
|
12. Soạn thảo trực tuyến, chia sẽ bài viết, hình ảnh, video, … | x |
13. Một vấn đề lớn, phức tạp cần kết hợp sức mạnh của nhiều máy tính để giải quyết (giải bài toán cần xử lí nhiều phép tính, dữ liệu lớn, …) | x |
em nghĩ sử dụng chung thiết bị phần cứng (máy in, thiết bị lưu trữ, …) cũng là cần kết nối mạng máy tính vì trong phần lợi ích sgk có ghi vậy ạ T^T
Program HOC24;
var i: integer;
function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
Begin
for i:= 10 to 99 do if nt(i) and i mod 2=0 then write(i,' ');
readln
end.
program tinh_ex;
var
x, ex, gt: real;
n, i: integer;
begin
write('Nhap vao so x: '); readln(x);
n := 10; (* so luong so hang *)
ex := 1; gt := 1;
for i := 1 to n do
begin
gt := gt * i; (* tinh giai thua i! *)
ex := ex + power(x, i) / gt; (* tinh tong theo cong thuc *)
end;
writeln('Gia tri cua e^', x, ' la: ', ex);
readln;
end.
program tinh_e;
var x: real;
n: integer;
s, t: real;
i: integer;
begin
write('Nhap x: '); readln(x);
write('Nhap n: '); readln(n);
s := 1; t := 1;
for i := 1 to n do
begin
t := t * x / i;
s := s + t;
end;
writeln('e = ', s);
end.