Viết chương trình tìm các đoạn con có tổng bằng nhau. Pascal nha
Input | Output |
10 2 6 2 5 2 1 2 | 10 2+6+2 5+2+1+2 |
Viết chương trình tìm các đoạn con có tổng bằng nhau. Pascal nha
Input | Output |
10 2 6 2 5 2 1 2 | 10 2+6+2 5+2+1+2 |
Viết chương trình nhập vào dãy gồm N số tìm các đoạn con có tổng bằng K
và in tất cả ra màn hình
Input | Output |
15 15 2 3 10 7 8 6 5 2 8 9 17 -2 0 5 10 | 2 3 10 7 8 5 2 8 17 -2 0 5 10 |
10 15 1 2 3 4 5 6 7 8 9 15 | 1 2 3 4 5 7 8 15 |
làm bằng pascal nha mọi người giúp mình
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.
cho tổng s= 1-2-3+4+5-6-7+8+9 -10-11 +12... n. viết chương trình nhập vào một số n tính tổng từ 1 đến n pascal
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
viết chương trình nhập vào số tự nhiên n và tính tổng các ước số của n mà các ước số đó là số nguyên tố.Giải thích n=6 thì ta có các ước số của 6 là 1,2,3,6.Trong đó các ước số là các số nguyên tố chỉ có 2 và 3.Vậy kết quả bằng 5(Pascal). Giúp mik v các bn
uses crt;
var i,n,t,j,kt:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=2 to n do
if n mod i=0 then
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
write(t);
readln;
end.
Dưới đây là một ví dụ về chương trình Pascal để tính tổng các ước số nguyên tố của một số tự nhiên n:
```pascal
program TinhTongUocSoNguyenTo;
var
n, i, j, sum: integer;
isPrime: boolean;
begin
write('Nhap vao so tu nhien n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if n mod i = 0 then // Kiểm tra i có là ước số của n không
begin
isPrime := true;
for j := 2 to trunc(sqrt(i)) do // Kiểm tra i có phải là số nguyên tố không begin if i mod j = 0 then begin isPrime := false; break; end; end; if isPrime then // Nếu i là số nguyên tố, cộng vào tổng sum := sum + i; end;
end;
writeln('Tong cac uoc so nguyen to cua ', n, ' la: ', sum);
end.
```
Chương trình trên sẽ yêu cầu bạn nhập vào số tự nhiên n, sau đó tính tổng các ước số nguyên tố của n và hiển thị kết quả.
cho đoạn chương trình sau hãy viết chương trình pascal cho đoạn chương trình
J:=1;k:=2;i:=0;
Whilei<5 do
begin
I:=i+1; J;=J+1; K:=K+J
End;
writel(j,k);
Cho đoạn chương trình pascal sau đây:
Tong:=0
While tong<5 do tong:=tong+1;
Sau khi đoạn chương trình kia được thực hiện, giá trị của tổng bằng bao nhiêu?
A. 4 B. 5 C. 6 D. 7
Đoạn chương trình trên sẽ lặp lại việc tăng giá trị của biến "tong" lên 1 khi giá trị của "tong" đạt đến 5. Vì ban đầu "tong" được gán giá trị là 0, nên chương trình sẽ thực hiện vòng lặp 5 lần để đạt được giá trị mong muốn.
Vì vậy, sau khi chương trình được thực hiện, giá trị của "tong" sẽ là 5. Do đó, câu trả lời đúng là B. 5.
C1:Viết câu lệnh khai biến x có kiểu số nguyên và hằng a có giá trị bằng 5 trong ngôn ngữ lập trình Pascal. C2: Viết chương trình Pascal để: A) nhập vào 2 số nguyên x, y bất kỳ B) tính tổng 2 số đó C) in ra giá trị của tổng
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +1980?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
a, Với lệnh For..do:
Var i:integer;
S:real; (Hoặc S:longint);
Begin
S:=0;
For i:=1 to 1980 do S:=S+i;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Bạn có thể chọn 1/2 cách với S:real hay S: longint. Chỉ là nếu bạn muốn nhìn dễ hiểu hơn thì tùy bạn. H/ảnh minh họa như dưới đây :D (Đã thử và áp dụng cách này với For...do)
b, Với lệnh While...do
Var i:integer;
S:real;
Begin
S:=0; i:=0;
While i<=1980 do
Begin
S:= S+i;
i:= i+1;
End;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Cũng có thể dùng S:longint (70-80% đúng) thay vì S:real (100% đúng). Nhưng khuyến cáo nên sử dụng S:real (Đã thử và áp dụng tương đối chính xác với While...do)
Good luck for you!!! :D
a) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 1980 do
s:=s+i;
writeln(s);
readln;
end.
b) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
i:=1;
while i<=1980 do
begin
s:=s+i;
i:=i+1;
end;
writeln(s);
readln;
end.
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +n?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
a)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
readln;
end.
b)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.