Kiểu dữ liệu có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Tiến Đạt

Bài 1 : cho 1 dãy số gồm n phần tử . Tính tổng các phần tử chẵn rồi xuất ra màn hình..

Bài 2.Viết họ tên của hai người vào 2 biến xâu. Ghép 2 xâu đó thành 1 xâu sau đó xuất ra kết quả với thứ tự ngược lại

Nguyễn Lê Phước Thịnh
24 tháng 5 2020 lúc 9:34

Bài 1:

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do

if a[i] mod 2=0 then t:=t+a[i];

writeln('Tong cac so chan la: ',t);

readln;

end.

Bài 2:

uses crt;
var st,st1,st2:string;
d1,d2,d,i:integer;
begin
clrscr;
write('Nhap ten nguoi thu nhat:'); readln(st1);
write('Nhap ten nguoi thu hai:'); readln(st2);
st:=' ';
d1:=length(st1);
for i:=1 to d1 do
st:=st+st1[i];
d2:=length(st2);
for i:=1 to d2 do
st:=st+st2[i];
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.


Các câu hỏi tương tự
Ngô Thành Chung
Xem chi tiết
mqthien2801
Xem chi tiết
Ard Meteor
Xem chi tiết
thanh hùng
Xem chi tiết
Camthuy Nguyen
Xem chi tiết
Tien Nguyen
Xem chi tiết
CHANNANGAMI
Xem chi tiết
Nguyễn Quyết Chiến
Xem chi tiết
Lan Anh
Xem chi tiết