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.
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
Mn cho mình 1 số bài tập về đoạn con hay là mảng 2 chiều hay là tệp thường ra trong thi HSG tin 9 vs
Tìm dãy con dài nhất có tổng bằng s
Dãy con đơn điệu
Ba lô 1
Ba lô 2
Hướng đối tượng
Làm trò chơi đơn giản
Bài tập về mảng 2 chiều nha bạn!!!
Viết chương trình thao tác trên ma trận vuông với các yêu cầu:
+ Nhập xuất ma trận vuông.
+ Tính tổng các phần tử trên đường chéo chính.
+ Kiểm tra tính đối xứng của ma trận vuông qua dường chéo chính.
Sub, like, share kênh giúp mình nha!! :): https://www.youtube.com/channel/UCTRZqBKW2JpVaEvCAN8CIVA?view_as=subscriber
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.
USES crt;
VAR i:integer; s1,s:string;
BEGIN
clrscr;
s1:='';
write('Nhap chuoi:'); readln(s);
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then
else s1:=s1+s[i];
end;
write('chuoi sau khi xoa la:',s1);
readln;
END.
bn có thể làm cho mk 1 cái gắn
for i:=1 to length(st) do val (st[i],so,code)
if code:=0 then delete(st,i,1);
vào lập trình dc ko z???
Cảm mơn bạn trc nha..
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.