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

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\)

5 tháng 12 2021

Bạn có thể giúp mình làm luôn câu c, d được không ạ

 

14 tháng 11 2021

Tỉ lệ \(x=\dfrac{y}{-5}\)

x             -4                 -1                2                   3

y             20                 5               -10               -15

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!

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.

15 tháng 3 2023

em cảm ơn ạ <3

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}\)

12 tháng 9 2021

cảm ơn bạn

 

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.

31 tháng 10 2021

Đề bài đâu rồi ạ, có đề mới giải được ạ