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.

D
datcoder
CTVVIP
3 tháng 1 2024

Program HOC24;

var i,n,q,j,k,l: integer;

t: longint;

a: array[1..5000] of integer;

f1,f2: text;

const fi='QSUM.INP' ;

fo='QSUM.OUT' ;

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

readln(f1,n,q);

for i:=1 to n do read(f1,a[i]);

readln(f1);

for k:=1 to q do

begin

readln(f1,i,j);

t:=0;

for l:=i to j do t:=t+a[l];

writeln(f2,t);

end;

close(f1);

close(f2);

end.

2 tháng 1 2024

giúp  mình với mmik cần gấp

 

4 tháng 1 2018

mik làm luôn thôi

11 tháng 10 2016

ko phải do bạn lập trình hơi chệch choạng đâu mà do nó khó đó

11 tháng 10 2016

à có vẻ hơi khó thiệt để ngĩ đã

1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán a. In ra các phần tử là số nguyên tố của dãy b. Tính ƯCLN của tất cả các phần tử của dãy c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann d. Sắp xếp và in ra dãy sau sắp xếp 2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho...
Đọc tiếp

1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán

a. In ra các phần tử là số nguyên tố của dãy

b. Tính ƯCLN của tất cả các phần tử của dãy

c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann

d. Sắp xếp và in ra dãy sau sắp xếp

2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho ƯCLN

3. Viết chương trình con tính xy với x,y là 2 stn được nhập từ bàn phím

4. Viết chương trình con tính giai thừa của n với n stn được nhập từ bàn phím

5. Viết chương trình, thuật toán tìm số hoàn chỉnh, số chính phương, số nguyên tố và BCNN

6. Nhập giá trị của mảng chia hết cho 3 và 5. Sắp xếp các phần tử chia hết cho 3 và 5 theo chiều tăng dần

7. Nhập dữ liệu cho các phần tử của mảng và đưa ra màn hình mảng vừa nhận. Tính tổng của các giá trị của các phần tử tính từ các phần tử lẻ đến số lượng các phần tử lẻ

8. Viết chương trình dùng câu lệnh repeat until Tính tổng của \(A=\dfrac{1}{1\cdot3}+\dfrac{1}{2\cdot4}+...+\dfrac{1}{n\left(n+2\right)}\)

9. Viết chương trình tính hàm \(e^x=1+x+\dfrac{x^2}{2!}+....+\dfrac{x^n}{n!}\)

10. Viết chương trình tính an với a,n được nhập từ bàn phím

Các Bn viết đầy đủ thuật toán, chương trình giúp Mk nhé

1
23 tháng 3 2018

dài thế thì ai rảnh mà làm

4 tháng 12 2019

Uses crt;

Var a,b,S1,S2,S: real ;

Begin

Write ('Nhap a: '); readln (a);

Write('Nhap b: '); readln (b);

S1:=2*a*b;

S2:= (3.14*b*sqr(a))/2;

S:= S1+S2;

If (a<>0) and (b<>0) then Write (S);

Readln ;

End.

uses crt;

var a,b,s1:integer;

s2,s:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

s1:=2*a*b;

s2:=(sqr(a)*b*pi))/2;

s:=s1+s2;

writeln(s:4:2);

readln;

end.

30 tháng 10 2019

đề thi khảo sát hsg trường thôi mà mn

17 tháng 2 2019

a.

program caua;

uses crt;

var x,i, n: integer;

A: real;

begin

clrscr;

write('Nhap so n, n = '); read(n);

A:=0; x:=1;

for i:=1 to n do

begin

i:=x*i; A:=1/i;

end;

write("Gia tri bieu thuc dau tien la',A);

readln

end.