Pascal
Mọi người giúp mình 3 bài này với ạ!
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.
Những câu hỏi liên quan
HT
Mọi người giúp mình bài này với ạ :
Viết chương trình pascal nhập mảng và tìm số nhỏ thứ k trong mảng
2
28 tháng 2 2023
uses crt;
var a:array[1..100]of integer;
i,n,t,j,tam:integer;
begin
clrscr;
readln(n,k);
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;
write(a[k]);
readln;
end.
28 tháng 2 2023
program sonho;
var
arr:array[1..100] of integer;
k, n, i, min: integer;
begin
write('Nhap n: ');
readln(n);
write('Nhap cac phan tu cua day: ');
for i := 1 to n do
begin
readln(arr[i]);
end;
write('Nhap k: ');
readln(k);
min := arr[1];
for i := 2 to k do
begin
if (arr[i] < min) then
min := arr[i];
end;
writeln('So nho thu ', k, ' trong day la: ', min);
end.
27 tháng 2 2023
var A:
array[1..n] of integer;
i, j, n: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
for i := 1 to n - 1 do
for j := i+1 to n do
if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then
begin
swap(A[i], A[j]);
end;
writeln('Mang da sap xep la: ');
for i := 1 to n do
writeln(A[i]);
end.
5 tháng 12 2021
\(R_{tđ}=\dfrac{R_1\cdot R_2}{R_1+R_2}=\dfrac{24\cdot12}{24+12}=8\Omega\)
\(I=\dfrac{U}{R}=\dfrac{12}{8}=1,5A\)
\(P=\dfrac{U^2}{R}=\dfrac{12^2}{8}=18W\)
\(Q_{tỏa1}=A_1=U_1\cdot I_1\cdot t=12\cdot\dfrac{12}{24}\cdot1\cdot3600=21600J\)
\(Q_{tỏa2}=A_2=U_2\cdot I_2\cdot t=12\cdot\dfrac{12}{12}\cdot1\cdot3600=43200J\)
NT
Nguyễn Thị Thương Hoài
Giáo viên
VIP
5 tháng 6 2023
Từ 0 đến 1 được chia thành 10 phần bằng nhau.
Giá trị của mỗi phần là: \(\dfrac{1}{10}\)
Từ lập luận trên ta có:
Số thích hợp để điền vào các ô trống lần lượt là:
10; 5; 6; 9; 10
5 tháng 6 2023
0 ; 1/10 ; 2/10 ; 3/10 ; 4/10 ; 5/10 ; 6/10 ; 7/10 ; 8/10 ; 9/10 ; 1
Chúc bạn học tốt!
KV
14 tháng 3 2023
Var a:array[1..100] of integer;
i,s:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln;
End.
HN
1
12 tháng 9 2021
\(\left(5\sqrt{3}+3\sqrt{5}\right):\sqrt{15}=\dfrac{5\sqrt{3}}{\sqrt{15}}+\dfrac{3\sqrt{5}}{\sqrt{15}}=\dfrac{5\sqrt{3}}{\sqrt{5}.\sqrt{3}}+\dfrac{3\sqrt{5}}{\sqrt{3}.\sqrt{5}}=\sqrt{5}+\sqrt{3}\)
HM
1
D
datcoder
CTVVIP
26 tháng 10 2023
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.
NC
1
Câu 4:
fucntion tong(x:integer):integer;
var st:string;
d,i,n,y,t:integer;
begin
str(x,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],n,y);
t:=t+n;
end;
tong:=t;
end;
Câu 2:
const fi='bai2.inp';
fo='bai2.out';
var f1,f2:text;
a:array[1..100]of integer;
n,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.