Tiêu đề câu hỏi
Nội dung câu hỏi
1.Viết chương trình nhập 2 số nguyên dương A,B(A<B). Tính và in ra tổng các số nguyên từ A đến B.
2.Viết chương trình nhập 2 số nguyên dương A,B(A<B). In ra tất cả các số nguyên chẵn từ A đến B.
Giups mình với ạ. Thanks các bạn.
Câu trả lời của bạn
mọi người làm hộ mình bài này với ạ!!@@@
mình k nhớ rõ đề lắm mn tc ạ!!
viết chương trình pascal nhập 10 số tự nhiên bất kì rồi sắp xếp chúng theo thứ tự chẵn lẻ trong mỗi phần sắp xếp theo thứ tự tăng dần.
vd: input :96 56 8 5 22 11 4 87 54 23
output: 4 8 22 54 56 96 5 11 23 87
cảm ơn mn nhiều ạ !!!!!
Câu trả lời của bạn
help help m vơi ạ
kết quả của phép toán 5 mod 2 bằng bao nhiêu
Câu trả lời của bạn
5 mod 2 sẽ bằng 1 vì:
5:2 =1 (có thương là 2, số dư bằng 1)
5 mod 2 bằng 1 vì 5 chia cho 2 có thương số là 2 số dư là 1
1
Viết ct nhập vào 1 xâu.in ra xâu ngược và loại bỏ dấu cách. Cho biết các lí tự ở vị trí lẻ là kí tự gì?
Câu trả lời của bạn
Viết ct nhập vào 1 xâu.in ra xâu ngược và loại bỏ dấu cách. Cho biết các lí tự ở vị trí lẻ là kí tự gì?
Câu trả lời của bạn
Viết chương trình tính giá trị biểu thức p= căn 2x bình phương -1+2y
Câu trả lời của bạn
viết chương trình nhập giá trị cho các phần tử trong mảng tính và in ra màn hình tổng của các phần tử là số nguyên dương N=5
Câu trả lời của bạn
lập trình nhập vào từ bàn phím 1 số nguyên dương m và dãy b gồm m số nguyên b1,b2,..bm các số nguyên (m<=200). sắp xếp dãy b trở thành dãy giảm dần và in dãy đã được sắp xếp
Câu trả lời của bạn
Viết chương trình nhập vào n số nguyên dương (n<=100) và n được nhập từ bàn phím. Tính theo các yêu cầu sau, xuất kết quả ra màn hình
(Lưu ý: Sử dụng chương trình con để viết chương trình)
Câu trả lời của bạn
Bai 1:}
program cap_so_cong;
uses crt;
var a: array[1..100] of integer;
i, n, k: integer; {i la bien dem, k de luu cap so}
begin
clrscr;
write('N= '); readln(n);
for i:=1 to n do
begin
write('A(',i,')= '); readln(a[i]);
end;
{Bat dau phan kiem tra}
k:=a[2]-a[1];
i:=2;
repeat
i:= i+1;
until (a[i]<>a[i-1]+k) or (i>n);
if i>n then write('Day A la mot cap so cong')
else write('Day A khong phai la mot cap so cong');
readln
end.
a)
PROGRAM BAI1a;
VAR N, Tle, Tchan: integer;
BEGIN
Write ('Nhap N =');
Readln (N);
If (N mod 2) = 0 Then
Tle := N*((N - 2)/2 + 1)/2;
Tchan := (N + 2)*((N - 2)/2 + 1)/2;
If (N mod 2) = 1 Then
Tle := (N + 1)*((N-1)/2 +1)/2;
Tchan := (N + 1)*((N - 3)/2 + 1)/2;
WRITELN ('Sle =', Sle, 'Schan =', Schan);
READLN;
END.
b)
PROGRAM BAI1b;
VAR N; Sle; Schan: integer;
BEGIN
Write ('Nhap N=');
Readln (N);
If (N mod 2) = 0 Then
Sle := (N-2)/2+1;
Schan := (N-2)/2+1;
If (N mod 2) = 1 Then
Sle := (N-2)/2+1;
Schan := Sle - 1;
WRITELN ('Sle =', Sle, 'Schan =', Schan);
REANDL;
END.
c)
PROGRAM BAI1c;
VAR N, TBchan, TBle: integer;
BEGIN
WRITE ('Nhap N=');
READLN (N);
If (N mod 2) = 0 Then
TBchan := (N+2)/2;
TBle := N/2;
If (N mod 2) = 1 Then
TBchan := (N+1)/2;
TBle := (N+1)/2;
WRITELN ('TBchan =', TBchan, 'TBle =', TBle);
READLN;
END.
d)
PROGRAM BAI1d;
VAR N, k, S, i: integer;
BEGIN
WRITE ('Nhap N, k');
READLN (N, k);
S := 0;
For i := 1 to N Do
If (i mod k) = 0 Then S := S + i;
WRITELN ('Tong cac so chia het cho k =' S);
READLN;
END.
Câu 1: Nhập vào 1 dãy số nguyên gồm N số nguyên a1, a2....aN (giả sử N<=100). Hãy đếm xem trong dãy số nguyên đó có bao nhiêu số chẵn, sau đó tính tổng các số chẵn đó
Câu 2: Nhập vào 1 xâu kí tự, kiểm tra xem xâu đó có phải là xâu đối xứng (palindrome) hay không, sao đó đếm xem trong xâu đó có bao nhiêu kí tự không phải là số?
Bạn nào giúp mình với
Câu trả lời của bạn
Bai 1:}
program cap_so_cong;
uses crt;
var a: array[1..100] of integer;
i, n, k: integer; {i la bien dem, k de luu cap so}
begin
clrscr;
write('N= '); readln(n);
for i:=1 to n do
begin
write('A(',i,')= '); readln(a[i]);
end;
{Bat dau phan kiem tra}
k:=a[2]-a[1];
i:=2;
repeat
i:= i+1;
until (a[i]<>a[i-1]+k) or (i>n);
if i>n then write('Day A la mot cap so cong')
else write('Day A khong phai la mot cap so cong');
readln
end.