Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Đạo Thanh
Xem chi tiết
Long ca ca
Xem chi tiết
meme
29 tháng 8 2023 lúc 14:01
 program TimDoanConCoTongK; const MAX_N = 100; var a: array[1..MAX_N] of Integer; N, K: Integer; i, j, sum: Integer; begin // Nhập vào dãy số và K Write('Nhap vao so phan tu cua day: '); ReadLn(N); WriteLn('Nhap vao cac phan tu cua day:'); for i := 1 to N do begin Write('a[', i, '] = '); ReadLn(a[i]); end; Write('Nhap vao gia tri K: '); ReadLn(K); // Tìm các đoạn con có tổng bằng K WriteLn('Cac doan con co tong bang ', K, ':'); for i := 1 to N do begin sum := 0; for j := i to N do begin sum := sum + a[j]; if sum = K then begin for k := i to j do begin Write(a[k], ' '); end; WriteLn; end; end; end; 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.

thu thu
Xem chi tiết
Yến Trần Thị Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 21:38

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

double p1,p2;

int i,n;

int main()

{

cin>>n;

p1=1;

p2=1;

for (i=1; i<=n; i++)

{

if (i%2==0) p2=p2*(i*1.0);

else p1=p1*(i*1.0);

}

cout<<fixed<<setprecision(2)<<p1<<endl;

cout<<fixed<<setprecision(2)<<p2;

return 0;

}

Lương Trần Phương Linh
Xem chi tiết
Azusa
15 tháng 4 2022 lúc 7:50

program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
        clrscr;
        for i:=1 to 10 do begin
         write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
        write('Day so vua nhap la: ');
        for i:=1 to 10 do write(a[i],', ');
        writeln;
        s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
        for i:=1 to 10 do begin
         s := s + a[i];
         if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
         if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
         if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
         else begin sl := sl + a[i]; dl := dl + 1 end;
        end;
        writeln('Tong cac phan tu trong mang la ',s);
        writeln('Trung binh cong cac phan tu trong mang la ',s/10);
        writeln('Tong cac so am la ',sa);
        writeln('Tong cac so duong la ',sd);
        writeln('Tong cac so chan la ',sc);
        writeln('Tong cac so le la ',sl);
        writeln('So cac so am la ', da);
        writeln('So cac so duong la ', dd);
        writeln('So cac so chan la ', dc);
        writeln('So cac so le la ', dl);
        readln
end.

Văn Bảo Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2021 lúc 19:10

Bài 3: 

a: 

2;5;10;17;26;37

0;3;8;15;24;35

mênh mênh
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 4 2022 lúc 22:56

uses crt;

var i:integer;

begin

clrscr;

i:=10;

while i>=5 do 

begin

write(i:4);

i:=i-1;

end;

readln;

end.

NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2023 lúc 0:38

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

Vân Anh Đoàn Thị
Xem chi tiết
Đặng Quý Văn
8 tháng 11 2021 lúc 13:40

Là B bạn nha

Vì dãy số tự nhiên không giới hạn nha bạn

Khách vãng lai đã xóa
Hiệp Ngô
8 tháng 11 2021 lúc 13:41

Câu B nha

Khách vãng lai đã xóa
Đinh Thu Trang
8 tháng 11 2021 lúc 13:56

TL: Câu B

Khách vãng lai đã xóa