Câu hỏi:
12/07/2024 298
Nhập vào một mảng, đếm xem có bao nhiêu phần tử đối xứng,in những phần tử đó ra và tính tổng chúng. Nếu không có phần tử đối xứng in ra 'khong co'
Câu hỏi trong đề:
Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
Sách mới 2k7: Tổng ôn Toán, Lí, Hóa, Văn, Sử, Địa…. kỳ thi tốt nghiệp THPT Quốc gia 2025, đánh giá năng lực (chỉ từ 110k).
Quảng cáo
Trả lời:
Giải bởi Vietjack
Lời giải:
program Hello;
uses crt;
var a:array[1..100000] of longint;
n,i,d,tong:longint;
function dx(a:longint): boolean;
var b: string;
i: byte;
begin
str(a,b);
for i:= 1 to length(b) div 2 do
if b[i] <> b[length(b) - i +1] then
exit(false);
exit(true);
end;
begin
readln(n);
d:= -1;
for i:= 1 to n do
begin
read(a[i]);
if dx(a[i])= true then d:= 0;
end;
if d = -1 then
writeln('khong co')
else
begin
writeln('Cac phan tu doi xung: ');
for i:= 1 to n do
if dx(a[i]) = true then
begin
inc(d);
tong:= tong + a[i];
write(a[i], ' ');
end;
writeln;
writeln('Co ', d, ' so phan tu doi xung va tong bang ', tong);
end;
readln;
readln;
end.
Nhà sách VIETJACK:
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 3:
Phần mềm nào sau đây không phải là hệ quản trị cơ sở dữ liệu quan hệ
Xem đáp án »
28/06/2023
40,429
Câu 5:
Trong bảng sau đây, mỗi học sinh chỉ có mộ mã số (Mahs):
Khoá chính của bảng là:
Trong bảng sau đây, mỗi học sinh chỉ có mộ mã số (Mahs):
Khoá chính của bảng là:
Xem đáp án »
27/06/2023
17,097
Câu 6:
Sau khi tạo liên kết giữa các bảng trong mô hình dữ liệu quan hệ, có thể thực hiện công việc nào dưới đây?
Xem đáp án »
28/06/2023
13,683
về câu hỏi!